Changeset 5536 for LMDZ6/branches/contrails/libf/dyn3d

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/dyn3d/replay3d.f90 (modified) (4 diffs)

LMDZ6/branches/contrails/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
@@ -28 +26 @@
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
   USE paramet_mod_h
-
   IMPLICIT NONE
 
@@ -74 +71 @@
 
   integer :: ntime=10000,it,klon,klev
-
-  character*20 :: lmax_replay
 
 
@@ -167 +162 @@
 
 
+     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)
 
 !---------------------------------------------------------------------