Changeset 4361 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Dec 1, 2022, 1:07:55 PM (2 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/create_limit_unstruct.F90
r3531 r4361 111 111 WHERE(NINT(zmasq(:))/=1) rugos(:,l)=0.001 112 112 ENDDO 113 CALL time_interpolation(ndays,rugos,'360 d',rugos_year)113 CALL time_interpolation(ndays,rugos,'360_day',rugos_year) 114 114 115 115 ! albedo 116 CALL time_interpolation(ndays,albedo,'360 d',albedo_year)116 CALL time_interpolation(ndays,albedo,'360_day',albedo_year) 117 117 118 118 -
LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90
r4325 r4361 494 494 ! calend = 'earth_365d' 495 495 if (calend == 'earth_360d') then 496 call ioconf_calendar('360 d')496 call ioconf_calendar('360_day') 497 497 write(*,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an' 498 498 else if (calend == 'earth_365d') then -
LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.F90
r4350 r4361 56 56 call getin('day_step',day_step) 57 57 calendrier=calend 58 if ( calendrier == "earth_360d" ) calendrier="360 d"58 if ( calendrier == "earth_360d" ) calendrier="360_day" 59 59 60 60 -
LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90
r4325 r4361 327 327 ! calend = 'earth_365d' 328 328 if (calend == 'earth_360d') then 329 call ioconf_calendar('360 d')329 call ioconf_calendar('360_day') 330 330 write(*,*)'CALENDRIER CHOISI: Terrestre a 360 jours/an' 331 331 else if (calend == 'earth_365d') then -
LMDZ6/trunk/libf/phylmd/iophys.F90
r4350 r4361 173 173 t0=0. 174 174 calendrier=calend 175 if ( calendrier == "earth_360d" ) calendrier="360 d"175 if ( calendrier == "earth_360d" ) calendrier="360_day" 176 176 177 177 print*,'iophys_ini annee_ref day_ref',annee_ref,day_ref,day_ini,calend,t0 -
LMDZ6/trunk/libf/phylmd/phys_cal_mod.F90
r3452 r4361 51 51 IF (is_omp_master) THEN 52 52 IF (calend == 'earth_360d') THEN 53 CALL ioconf_calendar('360 d')53 CALL ioconf_calendar('360_day') 54 54 ELSE IF (calend == 'earth_365d') THEN 55 55 CALL ioconf_calendar('noleap')
Note: See TracChangeset
for help on using the changeset viewer.