Ignore:
Timestamp:
Dec 28, 2018 5:58:49 PM (2 years ago)
Author:
kanani
Message:

Bugfix: replace simulated_time by time_since_reference_point where required

File:
1 edited

Legend:

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

    r3614 r3646  
    2727! -----------------
    2828! $Id$
     29! Remove check for simulated_time > 0, it is not required since biometeorology
     30! is only called from time_integration and not during time_integration_spinup
     31!
     32! 3614 2018-12-10 07:05:46Z raasch
    2933! unused variables removed
    3034!
     
    101105       ONLY:  average_count_3d, biometeorology, dz, dz_stretch_factor,         &
    102106              dz_stretch_level, humidity, initializing_actions, nz_do3d,       &
    103               simulated_time, surface_pressure
     107              surface_pressure
    104108
    105109    USE date_and_time_mod,                                                                                                        &
     
    13431347!
    13441348!-- fill out the MRT 2D grid from appropriate source (RTM, RRTMG,...)
    1345     IF ( simulated_time > 0.0_wp ) THEN
    1346        CALL bio_calculate_mrt_grid ( av )
    1347     ENDIF
     1349    CALL bio_calculate_mrt_grid ( av )
    13481350
    13491351    DO i = nxl, nxr
     
    13551357!
    13561358!--       Determine input only if
    1357           IF ( simulated_time > 0.0_wp ) THEN
    1358              CALL bio_get_thermal_index_input_ij ( av, i, j, ta, vp,           &
    1359                 ws, pair, tmrt_ij )
    1360           END IF
     1359          CALL bio_get_thermal_index_input_ij ( av, i, j, ta, vp,           &
     1360                                                ws, pair, tmrt_ij )
    13611361!
    13621362!--       Only proceed if input is available
Note: See TracChangeset for help on using the changeset viewer.