Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

Timestamp:

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

Author:

abarral

Message:

Put comgeom.h, comgeom2.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90 (modified) (10 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/guide_loc_mod.F90

@@ -769 +769 @@
 
     USE comconst_mod, ONLY: pi
+    USE lmdz_comgeom
 
     IMPLICIT NONE
@@ -774 +775 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
 
     ! input/output variables
@@ -841 +841 @@
 
     USE comconst_mod, ONLY: pi
+    USE lmdz_comgeom
 
     IMPLICIT NONE
@@ -846 +847 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
 
     ! input/output variables
@@ -914 +914 @@
     USE comvert_mod, ONLY: preff, pressure_exner, bp, ap, disvert_type
     USE lmdz_q_sat, ONLY: q_sat
+    USE lmdz_comgeom2
+
     IMPLICIT NONE
 
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     REAL, DIMENSION (iip1, jjb_u:jje_u), INTENT(IN) :: psi ! Psol gcm
@@ -1397 +1398 @@
     USE comconst_mod, ONLY: pi
     USE serre_mod, ONLY: clat, clon, grossismx, grossismy
+    USE lmdz_comgeom2
 
     IMPLICIT NONE
@@ -1402 +1404 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     ! input arguments :
@@ -2156 +2157 @@
     USE comvert_mod, ONLY: presnivs
     USE netcdf95, ONLY: nf95_def_var, nf95_put_var
+    USE lmdz_comgeom2
 
     IMPLICIT NONE
@@ -2161 +2163 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom2.h"
 
     ! Variables entree
@@ -2407 +2408 @@
   !====================================================================
   SUBROUTINE dumpall
+    USE lmdz_comgeom
+
     IMPLICIT NONE
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
     CALL barrier
     CALL dump2du(alpha_u(ijb_u:ije_u), '  alpha_u couche 1')