Changeset 497 for trunk/LMDZ.COMMON/libf/dyn3dpar
- Timestamp:
- Jan 12, 2012, 7:29:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/dyn3dpar/leapfrog_p.F
r495 r497 146 146 INTEGER :: an, mois, jour 147 147 REAL :: secondes 148 real :: rdaym_ini 148 149 149 150 LOGICAL first,callinigrads … … 626 627 ! CALL FTRACE_REGION_BEGIN("caldyn") 627 628 time = jD_cur + jH_cur 629 rdaym_ini = itau * dtvr / daysec 630 628 631 ! ADAPTATION GCM POUR CP(T) 629 632 ! CALL caldyn_p
Note: See TracChangeset
for help on using the changeset viewer.