Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/convflu_loc.f90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/convflu_loc.f90 (modified) (3 diffs)

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

@@ -1 +1 @@
 SUBROUTINE convflu_loc( xflu,yflu,nbniv,convfl )
-  !
+
   !  P. Le Van
-  !
-  !
+
+
   !    *******************************************************************
   !  ... calcule la (convergence horiz. * aire locale)du flux ayant pour
@@ -10 +10 @@
   !  xflu , yflu et nbniv sont des arguments d'entree pour le s-pg ..
   !  convfl                est  un argument de sortie pour le s-pg .
-  !
+
   ! njxflu  est le nombre de lignes de latitude de xflu,
   ! ( = jjm ou jjp1 )
   ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
-  !
+
   USE parallel_lmdz
   USE lmdz_ssum_scopy, ONLY: ssum
   USE lmdz_comgeom
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
   REAL :: xflu,yflu,convfl,convpn,convps
   INTEGER :: l,ij,nbniv
   DIMENSION  xflu( ijb_u:ije_u,nbniv ),yflu( ijb_v:ije_v,nbniv ) , &
         convfl( ijb_u:ije_u,nbniv )
-  !
+
   INTEGER :: ijb,ije
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
   DO l = 1,nbniv
-  !
+
     ijb=ij_begin
     ije=ij_end+iip1
@@ -43 +45 @@
             yflu(ij +1,l ) - yflu( ij -iim,l )
   END DO
-  !
+
   !
 
   ! ....  correction pour  convfl( 1,j,l)  ......
   ! ....   convfl(1,j,l)= convfl(iip1,j,l) ...
-  !
+
   !DIR$ IVDEP
     DO ij = ijb,ije,iip1
       convfl( ij,l ) = convfl( ij + iim,l )
   END DO
-  !
+
   ! ......  calcul aux poles  .......
-  !
+
     IF (pole_nord) THEN