Changeset 5489 for LMDZ6/branches/contrails/libf/phylmd/dyn1d/replay1d.f90

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/dyn1d/replay1d.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/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.)