Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

@@ -8 +8 @@
   USE lmdz_comgeom2
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
@@ -13 +15 @@
   !   Adaptation LMDZ:  A.Armengaud (LGGE)
   !   ----------------
-  !
+
   !   ********************************************************************
   !   Transport des traceurs par la methode des pentes
@@ -23 +25 @@
   !   q,w,masse,pbaru et pbarv
   !                  sont des arguments d'entree  pour le s-pg ....
-  !
+
   !=======================================================================
 
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments:
@@ -55 +57 @@
   REAL :: smn,sms,s0n,s0s,sxn(iip1),sxs(iip1)
   REAL :: qmin,zq,pente_max
-  !
+
   INTEGER :: lati,latf
   LOGICAL :: first