- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/create_etat0_limit.F
r1114 r1220 9 9 USE phys_state_var_mod 10 10 USE infotrac 11 #ifdef CPP_IOIPSL 12 use ioipsl, only: ioconf_calendar 13 #endif 11 14 IMPLICIT NONE 12 15 c … … 41 44 call init_const_lmdz( 42 45 $ nbtr,anneeref,dayref, 43 $ iphysiq, day_step,nday)46 $ iphysiq, day_step,nday) 44 47 #endif 45 48 print *, 'nbtr =' , nbtr … … 60 63 call InitComgeomphy 61 64 65 #ifdef CPP_IOIPSL 66 call ioconf_calendar('360d') 67 #endif 62 68 63 69 WRITE(6,*) ' ********************* '
Note: See TracChangeset
for help on using the changeset viewer.