Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

Timestamp:

Jul 28, 2024, 4:17:54 PM (8 weeks ago)

Author:

abarral

Message:

Put comgeom.h, comgeom2.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

@@ -608 +608 @@
 
     USE comconst_mod, ONLY: pi
+    USE lmdz_comgeom
 
     IMPLICIT NONE
@@ -613 +614 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
 
     ! input/output variables
@@ -676 +676 @@
     USE comvert_mod, ONLY: preff, pressure_exner, bp, ap
     USE lmdz_q_sat, ONLY: q_sat
+    USE lmdz_comgeom2
+
     IMPLICIT NONE
 
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     REAL, DIMENSION (iip1, jjp1), INTENT(IN) :: psi ! Psol gcm
@@ -925 +926 @@
     USE comconst_mod, ONLY: pi
     USE serre_mod, ONLY: clon, clat, grossismx, grossismy
+    USE lmdz_comgeom2
 
     IMPLICIT NONE
@@ -930 +932 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     ! input arguments :
@@ -1650 +1651 @@
     USE comvert_mod, ONLY: presnivs
     USE netcdf95, ONLY: nf95_def_var, nf95_put_var
+    USE lmdz_comgeom2
 
     IMPLICIT NONE
@@ -1655 +1657 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     ! Variables entree