Changeset 1201 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F
- Timestamp:
- Jul 7, 2009, 4:01:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3d/gcm.F
r1200 r1201 113 113 real time_step, t_wrt, t_ops 114 114 115 REAL rdayvrai,rdaym_ini,rday_ecri116 115 LOGICAL first 117 116 … … 135 134 character (len=20) :: modname 136 135 character (len=80) :: abort_message 137 138 C Calendrier139 LOGICAL true_calendar140 PARAMETER (true_calendar = .false.) 136 ! locales pour gestion du temps 137 INTEGER :: an, mois, jour 138 REAL :: heure 139 141 140 142 141 c----------------------------------------------------------------------- … … 163 162 164 163 165 c-----------------------------------------------------------------------166 c Choix du calendrier167 c -------------------168 169 #ifdef CPP_IOIPSL170 if (true_calendar) then171 call ioconf_calendar('gregorian')172 else173 call ioconf_calendar('360d')174 endif175 #endif176 164 c---------------------------------------------------------------------- 177 165 c lecture des fichiers gcm.def ou run.def … … 197 185 endif 198 186 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 187 c----------------------------------------------------------------------- 188 c Choix du calendrier 189 c ------------------- 190 191 c calend = 'earth_365d' 192 193 #ifdef CPP_IOIPSL 194 if (calend == 'earth_360d') then 195 call ioconf_calendar('360d') 196 write(lunout,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an' 197 else if (calend == 'earth_365d') then 198 call ioconf_calendar('noleap') 199 write(lunout,*)'CALENDRIER CHOISI: Terrestre a 365 jours/an' 200 else if (calend == 'earth_366d') then 201 call ioconf_calendar('gregorian') 202 write(lunout,*)'CALENDRIER CHOISI: Terrestre bissextile' 203 else 204 abort_message = 'Mauvais choix de calendrier' 205 call abort_gcm(modname,abort_message,1) 206 endif 207 #endif 208 c----------------------------------------------------------------------- 199 209 200 210 IF (config_inca /= 'none') THEN … … 303 313 annee_ref = anneeref 304 314 day_ref = dayref 305 day_ini = dayref315 day_ini = 1 306 316 itau_dyn = 0 307 317 itau_phy = 0 … … 314 324 endif 315 325 326 mois = 1 327 heure = 0. 328 call ymds2ju(annee_ref, mois, day_ref, heure, jD_ref) 329 jH_ref = jD_ref - int(jD_ref) 330 jD_ref = int(jD_ref) 331 316 332 #ifdef CPP_IOIPSL 317 333 call ioconf_startdate(annee_ref,0,day_ref, 0.) 318 334 #endif 319 335 336 write(lunout,*)'DEBUG' 337 write(lunout,*)'annee_ref, mois, day_ref, heure, jD_ref' 338 write(lunout,*)annee_ref, mois, day_ref, heure, jD_ref 339 call ju2ymds(jD_ref+jH_ref,an, mois, jour, heure) 340 write(lunout,*)'jD_ref+jH_ref,an, mois, jour, heure' 341 write(lunout,*)jD_ref+jH_ref,an, mois, jour, heure 320 342 321 343 c nombre d'etats dans les fichiers demarrage et histoire … … 391 413 WRITE(lunout,300)day_ini,day_end 392 414 300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//) 415 call ju2ymds(jD_ref+day_ini-1,an, mois, jour, heure) 416 write (lunout,301)jour, mois, an 417 call ju2ymds(jD_ref+day_end-1,an, mois, jour, heure) 418 write (lunout,302)jour, mois, an 419 301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4) 420 302 FORMAT('1'/,15x,' au ', i2,'/',i2,'/',i4) 393 421 394 422 if (planet_type.eq."earth") then
Note: See TracChangeset
for help on using the changeset viewer.