Changeset 5458 for LMDZ6/trunk/libf/phylmd/dyn1d

Timestamp:

Dec 29, 2024, 12:41:42 AM (6 weeks ago)

Author:

fhourdin

Message:

Concering replay

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90

@@ -24 +24 @@
 CHARACTER (len=10) :: calend
 CHARACTER(len=20) :: calendrier
-
+CHARACTER(len=20) :: lmax_replay
 
 !---------------------------------------------------------------------
@@ -56 +56 @@
 call getin('calend',calend)
 call getin('day_step',day_step)
+
+print*,'AVANT getin'
+klev=llm
+CALL getin('lmax_replay',lmax_replay)
+print*,'APRES getin',lmax_replay
+CALL getin(lmax_replay,klev)
+print*,'replay1d lmax_replay klev',lmax_replay,klev
+
 calendrier=calend
 if ( calendrier == "earth_360d" ) calendrier="360_day"
@@ -69 +77 @@
 
 klon=1
-klev=llm
 call iotd_ini('phys.nc',1,1,klev,0.,0.,presnivs,jour0,mois0,an0,0.,86400./day_step,calendrier)
 ! Consistent with ... CALL iophys_ini(600.)