Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/dyn3d/gcm.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (18 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/dyn3d/gcm.F90
r3605 r4368 20 20 21 21 USE filtreg_mod 22 USE infotrac 22 USE infotrac, ONLY: nqtot, init_infotrac 23 23 USE control_mod 24 24 USE mod_const_mpi, ONLY: COMM_LMDZ … … 178 178 #ifdef CPP_IOIPSL 179 179 if (calend == 'earth_360d') then 180 call ioconf_calendar('360 d')180 call ioconf_calendar('360_day') 181 181 write(lunout,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an' 182 182 else if (calend == 'earth_365d') then … … 205 205 ! Choix du nombre de traceurs et du schema pour l'advection 206 206 ! dans fichier traceur.def, par default ou via INCA 207 call in fotrac_init207 call init_infotrac 208 208 209 209 ! Allocation de la tableau q : champs advectes
Note: See TracChangeset
for help on using the changeset viewer.