Ignore:
Timestamp:
Jun 29, 2017 10:14:38 AM (4 years ago)
Author:
maronga
Message:

improvements for spinup mechanism

File:
1 edited

Legend:

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

    r2292 r2299  
    2525! -----------------
    2626! $Id$
     27! Adjusted for allow separate spinups of LSM and atmosphere code
     28!
     29! 2292 2017-06-20 09:51:42Z schwenkel
    2730! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
    2831! includes two more prognostic equations for cloud drop concentration (nc) 
     
    203206               most_method, neutral, passive_scalar, pt_surface, q_surface,    &
    204207               run_coupled, surface_pressure, simulated_time, terminate_run,   &
    205                urban_surface, zeta_max, zeta_min
     208               time_since_reference_point, urban_surface, zeta_max, zeta_min
    206209
    207210    USE grid_variables,                                                        &
     
    19211924!
    19221925!--       Compute the vertical kinematic heat flux
    1923           IF (  .NOT.  constant_heatflux  .AND.  ( simulated_time <=           &
    1924                skip_time_do_lsm  .OR.  .NOT.  land_surface )  .AND.            &
    1925                .NOT.  urban_surface  .AND.  .NOT. downward )  THEN
     1926          IF (  .NOT.  constant_heatflux  .AND.  ( ( time_since_reference_point&
     1927               <=  skip_time_do_lsm  .AND. simulated_time > 0.0_wp ) .OR.      &
     1928               .NOT.  land_surface )  .AND.  .NOT.  urban_surface  .AND.       &
     1929               .NOT. downward )  THEN
    19261930             !$OMP PARALLEL DO PRIVATE( i, j, k )
    19271931             DO  m = 1, surf%ns
     
    19351939!--       Compute the vertical water flux
    19361940          IF (  .NOT.  constant_waterflux  .AND.  humidity  .AND.              &
    1937                 ( simulated_time <= skip_time_do_lsm                           &
    1938                .OR.  .NOT.  land_surface )  .AND.  .NOT. downward )  THEN
     1941               ( ( time_since_reference_point <= skip_time_do_lsm  .AND.       &
     1942               simulated_time > 0.0_wp ) .OR.  .NOT.  land_surface )  .AND.    &
     1943               .NOT. downward )  THEN
    19391944             !$OMP PARALLEL DO PRIVATE( i, j, k )
    19401945             DO  m = 1, surf%ns
Note: See TracChangeset for help on using the changeset viewer.