Changeset 5136 for LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.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/filtrez/lmdz_filtreg.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

@@ -331 +331 @@
     USE lmdz_coefils, ONLY: sddv, sddu, unsddu, unsddv, eignfnv, eignfnu
     USE lmdz_ssum_scopy, ONLY: ssum
+    USE lmdz_comgeom
+
     IMPLICIT NONE
-    !
+
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
-    !
+
     REAL :: vec(iim, iim), vec1(iim, iim)
     REAL :: dlonu(iim), dlonv(iim)
@@ -586 +587 @@
     USE lmdz_coefils, ONLY: modfrstv, modfrstu, jfiltnu, jfiltnv, coefilu, coefilv, &
             coefilu2, coefilv2, eignfnv, eignfnu, jfiltsu, jfiltsv
+    USE lmdz_comgeom
 
     !    ... H. Upfiltreg_modadhyaya, O.Sharma   ...
@@ -595 +597 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comgeom.h"
 
     REAL  dlonu(iim), dlatu(jjm)