[Dart-dev] [3859] DART/trunk/models/bgrid_solo/fms_src/atmos_shared/tracer_driver/ orig_atmos_tracer_utilities.f90: convert tabs to spaces
nancy at ucar.edu
nancy at ucar.edu
Wed May 6 16:06:02 MDT 2009
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090506/4855fb90/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/bgrid_solo/fms_src/atmos_shared/tracer_driver/orig_atmos_tracer_utilities.f90
===================================================================
--- DART/trunk/models/bgrid_solo/fms_src/atmos_shared/tracer_driver/orig_atmos_tracer_utilities.f90 2009-05-06 22:04:57 UTC (rev 3858)
+++ DART/trunk/models/bgrid_solo/fms_src/atmos_shared/tracer_driver/orig_atmos_tracer_utilities.f90 2009-05-06 22:06:02 UTC (rev 3859)
@@ -333,11 +333,11 @@
!
!**** Compute dry sinks (loss frequency, need modification when
!**** different vdep values are to be used for species)
- flagsr=parse(control,'surfr',surfr)
+ flagsr=parse(control,'surfr',surfr)
if(flagsr == 0) surfr=500.
hwindv=sqrt(u**2+v**2)
frictv=u_star
- resisa=hwindv/(u_star*u_star)
+ resisa=hwindv/(u_star*u_star)
where (frictv .lt. 0.1) frictv=0.1
dsinku=(1./(surfr/frictv + resisa))/dz
!
More information about the Dart-dev
mailing list