Changeset 2488 for LMDZ5/branches/testing/libf/phylmd/time_phylmdz_mod.F90
- Timestamp:
- Apr 3, 2016, 12:09:34 AM (9 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2458-2470,2472-2487
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/time_phylmdz_mod.F90
r2435 r2488 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=0 63 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.