Changeset 2508 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Oct 2, 2017 8:57:09 AM (7 years ago)

Author:

suehring

Message:

Bugfixes in SGS-TKE buoyancy production; revised initialization of vertical-gradient levels in case of ocean runs

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor formatting adjustment
+! 
+! 2478 2017-09-18 13:37:24Z suehring
 ! Bugfixes in initializing model top
 !
@@ -795 +798 @@
        ALLOCATE ( surfaces%j(1:surfaces%ns)  )
        ALLOCATE ( surfaces%k(1:surfaces%ns)  )
+
+       IF ( .NOT. constant_diffusion )  THEN    
+          ALLOCATE ( surfaces%u_0(1:surfaces%ns) )  
+          ALLOCATE ( surfaces%v_0(1:surfaces%ns) )
+       ENDIF 
 !
 !--    Vertical momentum fluxes of u and v
@@ -1504 +1512 @@
 !--          Prescribe latent heat flux at the top      
              IF ( humidity )  THEN
-             surf%qsws(num_h) = 0.0_wp
+                surf%qsws(num_h) = 0.0_wp
                 IF ( cloud_physics  .AND.  microphysics_morrison ) THEN
                    surf%ncsws(num_h) = 0.0_wp