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

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divgrad.f90 (modified) (2 diffs)

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

@@ -7 +7 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
-  !
+
   !=======================================================================
-  !
+
   !  Auteur :   P. Le Van
   !  ----------
-  !
+
   !                          lh
   !  calcul de  (div( grad ))   de h  .....
   !  h  et lh  sont des arguments  d'entree pour le s-prog
   !  divgra     est  un argument  de sortie pour le s-prog
-  !
+
   !=======================================================================
-  !
+
   !   declarations:
   !   -------------
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-  !
+
+
+
   INTEGER :: klevel
   REAL :: h(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
-  !
+
   REAL :: ghy(ip1jm, llm), ghx(ip1jmp1, llm)
 
   INTEGER :: l, ij, iter, lh
-  !
-  !
-  !
+
+
+
   CALL SCOPY (ip1jmp1 * klevel, h, 1, divgra, 1)
-  !
+
   DO iter = 1, lh
 
@@ -52 +54 @@
       END DO
     END DO
-    !
+
   END DO
   RETURN