Changeset 291 for palm/trunk/SOURCE/prandtl_fluxes.f90

Timestamp:

Apr 16, 2009 12:07:26 PM (15 years ago)

Author:

raasch

Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:

• palm/trunk/SOURCE/prandtl_fluxes.f90 (modified) (2 diffs)

palm/trunk/SOURCE/prandtl_fluxes.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Saturation condition at (sea) surface is not used in precursor runs (only
+! in the following coupled runs)
 !
 ! Former revisions:
@@ -278 +279 @@
 
 !
-!--             assume saturation for atmosphere coupled to ocean
-                IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
+!--             Assume saturation for atmosphere coupled to ocean (but not
+!--             in case of precursor runs)
+                IF ( coupling_mode == 'atmosphere_to_ocean' .AND. run_coupled )&
+                THEN
                    e_q = 6.1 * &
                         EXP( 0.07 * ( MIN(pt(0,j,i),pt(1,j,i)) - 273.15 ) )