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/modules.f90

    r2499 r2508  
    2525! -----------------
    2626! $Id$
     27! Change default value for pt/q/s/sa_vertical_gradient_level
     28!
     29! 2499 2017-09-22 16:47:58Z kanani
    2730! Default changed to fft_method = 'temperton-algorithm'
    2831!
     
    14101413    REAL(wp) ::  mask_scale(3)                                     !< collective array for mask_scale_x/y/z
    14111414    REAL(wp) ::  pt_vertical_gradient(10) = 0.0_wp                 !< namelist parameter
    1412     REAL(wp) ::  pt_vertical_gradient_level(10) = -1.0_wp          !< namelist parameter
     1415    REAL(wp) ::  pt_vertical_gradient_level(10) = -999999.9_wp   !< namelist parameter
    14131416    REAL(wp) ::  q_vertical_gradient(10) = 0.0_wp                  !< namelist parameter
    1414     REAL(wp) ::  q_vertical_gradient_level(10) = -1.0_wp           !< namelist parameter
     1417    REAL(wp) ::  q_vertical_gradient_level(10) = -999999.9_wp    !< namelist parameter
    14151418    REAL(wp) ::  s_vertical_gradient(10) = 0.0_wp                  !< namelist parameter
    1416     REAL(wp) ::  s_vertical_gradient_level(10) = -1.0_wp           !< namelist parameter
     1419    REAL(wp) ::  s_vertical_gradient_level(10) = -999999.9_wp    !< namelist parameter
    14171420    REAL(wp) ::  sa_vertical_gradient(10) = 0.0_wp                 !< namelist parameter
    1418     REAL(wp) ::  sa_vertical_gradient_level(10) = -1.0_wp          !< namelist parameter
     1421    REAL(wp) ::  sa_vertical_gradient_level(10) = -999999.9_wp   !< namelist parameter
    14191422    REAL(wp) ::  skip_time_domask(max_masks) = 9999999.9_wp        !< namelist parameter
    14201423    REAL(wp) ::  threshold(20) = 0.0_wp                            !< namelist parameter
Note: See TracChangeset for help on using the changeset viewer.