Ignore:
Timestamp:
Dec 17, 2018 2:52:50 PM (3 years ago)
Author:
kanani
Message:

Fix for masked output, change default chemistry mechanism

File:
1 edited

Legend:

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

    r3589 r3632  
    2525! -----------------
    2626! $Id$
     27! Fix output time levels (use time_since_reference_point)
     28!
     29! 3589 2018-11-30 15:09:51Z suehring
    2730! Move the control parameter "salsa" from salsa_mod.f90 to control_parameters
    2831!
     
    168171               mask_j, mask_k, mask_size, mask_size_l, mask_start_l,           &
    169172               mask_surface,                                                   &
    170                max_masks, message_string, mid, nz_do3d, salsa, simulated_time
     173               max_masks, message_string, mid, nz_do3d, salsa,                 &
     174               time_since_reference_point
     175
    171176    USE cpulog,                                                                &
    172177        ONLY:  cpu_log, log_point
     
    265270    IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    266271       nc_stat = NF90_PUT_VAR( id_set_mask(mid,av), id_var_time_mask(mid,av), &
    267                                (/ simulated_time /),                          &
     272                               (/ time_since_reference_point /),              &
    268273                               start = (/ domask_time_count(mid,av) /),       &
    269274                               count = (/ 1 /) )
     
    370375          CASE ( 'pr' )  ! mean particle radius (effective radius)
    371376             IF ( av == 0 )  THEN
    372                 IF ( simulated_time >= particle_advection_start )  THEN
     377                IF ( time_since_reference_point >= particle_advection_start )  THEN
    373378                   DO  i = nxl, nxr
    374379                      DO  j = nys, nyn
     
    514519          CASE ( 'ql_vp' )
    515520             IF ( av == 0 )  THEN
    516                 IF ( simulated_time >= particle_advection_start )  THEN
     521                IF ( time_since_reference_point >= particle_advection_start )  THEN
    517522                   DO  i = nxl, nxr
    518523                      DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.