Ignore:
Timestamp:
Oct 2, 2017 8:57:09 AM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_mod.f90

    r2478 r2508  
    2525! -----------------
    2626! $Id$
     27! Minor formatting adjustment
     28!
     29! 2478 2017-09-18 13:37:24Z suehring
    2730! Bugfixes in initializing model top
    2831!
     
    795798       ALLOCATE ( surfaces%j(1:surfaces%ns)  )
    796799       ALLOCATE ( surfaces%k(1:surfaces%ns)  )
     800
     801       IF ( .NOT. constant_diffusion )  THEN   
     802          ALLOCATE ( surfaces%u_0(1:surfaces%ns) ) 
     803          ALLOCATE ( surfaces%v_0(1:surfaces%ns) )
     804       ENDIF
    797805!
    798806!--    Vertical momentum fluxes of u and v
     
    15041512!--          Prescribe latent heat flux at the top     
    15051513             IF ( humidity )  THEN
    1506              surf%qsws(num_h) = 0.0_wp
     1514                surf%qsws(num_h) = 0.0_wp
    15071515                IF ( cloud_physics  .AND.  microphysics_morrison ) THEN
    15081516                   surf%ncsws(num_h) = 0.0_wp
Note: See TracChangeset for help on using the changeset viewer.