Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/laplacien_gam.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/laplacien_gam.f90 (modified) (2 diffs)

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

@@ -5 +5 @@
 
   !  P. Le Van
-  !
+
   !   ************************************************************
-  !
+
   !  ....   calcul de  (div( grad ))   de   teta  .....
   !   ************************************************************
   !    klevel et teta  sont des arguments  d'entree pour le s-prog
   !  divgra     est  un argument  de sortie pour le s-prog
-  !
+
   USE lmdz_ssum_scopy, ONLY: scopy
   USE lmdz_comgeom
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
 
-  !
+
+
+
   !    ............     variables  en arguments    ..........
-  !
+
   INTEGER :: klevel
   REAL :: teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
   REAL :: cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), &
           unsapolnga, unsapolsga
-  !
+
   !    ...........    variables  locales    .................
-  !
+
   REAL :: ghy(ip1jm, llm), ghx(ip1jmp1, llm)
   !    ......................................................
 
-  !
-  !
+
+
   !   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )
   !   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..
@@ -42 +44 @@
 
   CALL SCOPY (ip1jmp1 * klevel, teta, 1, divgra, 1)
-  !
+
   CALL   grad (klevel, divgra, ghx, ghy)
-  !
+
   CALL  diverg_gam (klevel, cuvsga, cvusga, unsaigam, &
           unsapolnga, unsapolsga, ghx, ghy, divgra)