Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (3 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

• LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90 (modified) (2 diffs)

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

@@ -333 +333 @@
     IMPLICIT NONE
     !
-    include "dimensions.h"
-    include "paramet.h"
-    include "comgeom.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
     !
     REAL :: vec(iim, iim), vec1(iim, iim)
@@ -593 +593 @@
     !     Correction  le 28/10/97    P. Le Van .
     !  -------------------------------------------------------------------
-    include "dimensions.h"
-    include "paramet.h"
-    include "comgeom.h"
+    INCLUDE "dimensions.h"
+    INCLUDE "paramet.h"
+    INCLUDE "comgeom.h"
 
     REAL  dlonu(iim), dlatu(jjm)