Changeset 5536 for LMDZ6/branches/contrails/libf/phylmd/dyn1d

Timestamp:

Feb 12, 2025, 10:08:35 AM (5 months ago)

Author:

aborella

Message:

Revert 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"
@@ -77 +69 @@
 
 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.)