Changeset 5267 for LMDZ6/trunk/libf/dyn3d/dynredem.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/dynredem.F90
r5084 r5267 4 4 ! Write the NetCDF restart file (initialization). 5 5 !------------------------------------------------------------------------------- 6 #ifdef CPP_IOIPSL7 6 USE IOIPSL 8 #endif9 7 USE strings_mod, ONLY: maxlen 10 8 USE infotrac, ONLY: nqtot, tracers … … 46 44 !=============================================================================== 47 45 modname='dynredem0'; fil=fichnom 48 #ifdef CPP_IOIPSL49 46 CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian) 50 47 CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours) 51 #else 52 ! set yyears0, mmois0, jjour0 to 0,1,1 (hours is not used) 53 yyears0=0 54 mmois0=1 55 jjour0=1 56 #endif 48 57 49 58 50 tab_cntrl(:) = 0.
Note: See TracChangeset
for help on using the changeset viewer.