Changeset 2465 for LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90
- Timestamp:
- Mar 14, 2016, 5:11:59 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/time_phylmdz_mod.F90
r2463 r2465 28 28 INTEGER,SAVE :: itaufin_phy ! final iteration (in itau_phy steps) 29 29 !$OMP THREADPRIVATE(itaufin_phy) 30 REAL,SAVE :: current_time ! current elapsed time ( s) from the begining of the run30 REAL,SAVE :: current_time ! current elapsed time (fraction of day) from the begining of the run 31 31 !$OMP THREADPRIVATE(current_time) 32 32 … … 61 61 CALL getin_p('raz_date', raz_date) 62 62 63 current_time= start_time63 current_time=0. 64 64 65 65 CALL phys_cal_init(annee_ref,day_ref)
Note: See TracChangeset
for help on using the changeset viewer.