Changeset 5104 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz1d.F90

Timestamp:

Jul 23, 2024, 5:57:06 PM (2 months ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F in DUST to *.f90

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz1d.F90

@@ -1 +1 @@
 ! $Id$
-
-!#include "../dyn3d/mod_const_mpi.F90"
-!#include "../dyn3d_common/control_mod.F90"
-!#include "../dyn3d_common/infotrac.F90"
-!#include "../dyn3d_common/disvert.F90"
-
 
 PROGRAM lmdz1d
   USE ioipsl, ONLY: getin
+  USE lmdz_scm, ONLY: scm
+  USE lmdz_old_lmdz1d, ONLY: old_lmdz1d
   IMPLICIT NONE
 
@@ -20 +16 @@
     CALL old_lmdz1d
   ENDIF
-
 END
 
 
-include "1DUTILS.h"
-include "1Dconv.h"
 
-
-
-