Changeset 5458 for LMDZ6/trunk/libf/dyn3d

Timestamp:

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

Author:

fhourdin

Message:

Concering replay

File:

• LMDZ6/trunk/libf/dyn3d/replay3d.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3d/replay3d.f90

@@ -18 +18 @@
         grossismx, grossismy, dzoomx, dzoomy,taux,tauy
   USE mod_const_mpi, ONLY: comm_lmdz
+  USE ioipsl, only: getin
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
@@ -26 +28 @@
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
   USE paramet_mod_h
+
   IMPLICIT NONE
 
@@ -71 +74 @@
 
   integer :: ntime=10000,it,klon,klev
+
+  character*20 :: lmax_replay
 
 
@@ -162 +167 @@
 
 
-     CALL iophys_ini(900.)
 print*,'Rlatu=',rlatu
 klon=2+iim*(jjm-1)
+
+print*,'AVANT getin'
 klev=llm
+CALL getin('lmax_replay',lmax_replay)
+print*,'APRES getin',lmax_replay
+CALL getin(lmax_replay,klev)
+print*,'replay3d lmax_replay klev',lmax_replay,klev
+
+     CALL iophys_ini(900.,klev)
 
 !---------------------------------------------------------------------