Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/laplacien_gam_loc.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/dyn3dmem/laplacien_gam_loc.f90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/laplacien_gam_loc.f90

@@ -3 +3 @@
 
   !  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 parallel_lmdz
   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( ijb_u:ije_u,klevel ), divgra( ijb_u:ije_u,klevel )
@@ -27 +29 @@
   REAL :: unsaigam(ip1jmp1)
   REAL :: unsapolnga, unsapolsga
-  !
+
   !    ...........    variables  locales    .................
-  !
+
   REAL :: ghy(ijb_v:ije_v,llm), ghx(ijb_u:ije_u,llm)
   !    ......................................................
@@ -35 +37 @@
   INTEGER :: ijb,ije
   INTEGER :: l
-  !
-  !
+
+
   !   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )
   !   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..
@@ -55 +57 @@
 !$OMP END DO NOWAIT
 
-  !
+
   CALL   grad_loc ( klevel, divgra, ghx, ghy )
-  !
+
   CALL  diverg_gam_loc ( klevel, cuvsga, cvusga,  unsaigam  , &
         unsapolnga, unsapolsga, ghx , ghy , divgra )