Ignore:
Timestamp:
Oct 13, 2017 6:09:32 PM (4 years ago)
Author:
maronga
Message:

introduced new module date_and_time_mod

File:
1 edited

Legend:

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

    r2299 r2544  
    2525! -----------------
    2626! $Id$
     27! Date and time quantities are now read from date_and_time_mod
     28!
     29! 2299 2017-06-29 10:14:38Z maronga
    2730! Call of soil model adjusted to avoid prognostic equation for soil moisture
    2831! during spinup.
     
    6770        ONLY:  cpu_log, log_point, log_point_s
    6871
     72    USE date_and_time_mod,                                                     &
     73        ONLY: day_of_year_init, time_utc_init
     74
    6975    USE indices,                                                               &
    7076        ONLY:  nbgp, nzb, nzt, nysg, nyng, nxlg, nxrg
     
    8187    USE radiation_model_mod,                                                   &
    8288        ONLY:  dt_radiation, force_radiation_call, radiation,                  &
    83                radiation_control, rad_sw_in, time_radiation, time_utc_init
     89               radiation_control, rad_sw_in, time_radiation 
    8490
    8591    USE statistics,                                                            &
     
    425431
    426432       USE constants,                                                          &
    427            ONLY:  pi
    428        
     433       ONLY:  pi
     434     
    429435       USE kinds
    430436
    431437       USE radiation_model_mod,                                                &
    432            ONLY:  day_init, decl_1, decl_2, decl_3, lat, lon
     438           ONLY:  decl_1, decl_2, decl_3, lat, lon
    433439
    434440       IMPLICIT NONE
     
    446452!--    time
    447453
    448        day = day_init + INT(FLOOR( local_time / 86400.0_wp ), KIND=iwp)
     454       day = day_of_year_init + INT(FLOOR( local_time / 86400.0_wp ), KIND=iwp)
    449455       time_utc = MOD(local_time, 86400.0_wp)
    450456
Note: See TracChangeset for help on using the changeset viewer.