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

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

@@ -3 +3 @@
   USE lmdz_comgeom
 
-  !
+
   ! *********************************************************************
   !   ....  Calcule la masse d'air  dans chaque maille   ....
   ! *********************************************************************
-  !
+
   !    Auteurs : P. Le Van , Fr. Hourdin  .
   !   ..........
-  !
+
   !  ..    p                      est  un argum. d'entree pour le s-pg ...
   !  ..  masse                    est un  argum.de sortie pour le s-pg ...
-  !
+
   !  ....  p est defini aux interfaces des llm couches   .....
-  !
+
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
   !
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-  !
+
+
+
   !  .....   arguments  ....
-  !
+
   REAL :: p(ijb_u:ije_u,llmp1), masse(ijb_u:ije_u,llm)
 
@@ -31 +33 @@
   REAL :: massemoyn, massemoys
 
-  !
-  !
+
+
   !   Methode pour calculer massebx et masseby .
   !   ----------------------------------------
-  !
+
   !    A chaque point scalaire P (i,j) est affecte 4 coefficients d'aires
   !   alpha1(i,j)  calcule  au point ( i+1/4,j-1/4 )
@@ -41 +43 @@
   !   alpha3(i,j)  calcule  au point ( i-1/4,j+1/4 )
   !   alpha4(i,j)  calcule  au point ( i-1/4,j-1/4 )
-  !
+
   !    Avec  alpha1(i,j) = aire(i+1/4,j-1/4)/ aire(i,j)
-  !
+
   !    N.B .  Pour plus de details, voir s-pg  ...  iniconst ...
-  !
-  !
-  !
+
+
+
   !   alpha4 .         . alpha1    . alpha4
   !    (i,j)             (i,j)       (i+1,j)
-  !
+
   !         P .        U .          . P
   !       (i,j)       (i,j)         (i+1,j)
-  !
+
   !   alpha3 .         . alpha2    .alpha3
   !    (i,j)              (i,j)     (i+1,j)
-  !
+
   !         V .        Z .          . V
   !       (i,j)
-  !
+
   !   alpha4 .         . alpha1    .alpha4
   !   (i,j+1)            (i,j+1)   (i+1,j+1)
-  !
+
   !         P .        U .          . P
   !      (i,j+1)                    (i+1,j+1)
-  !
-  !
-  !
+
+
+
   !                   On  a :
-  !
+
   !    massebx(i,j) = masse(i  ,j) * ( alpha1(i  ,j) + alpha2(i,j))   +
   !               masse(i+1,j) * ( alpha3(i+1,j) + alpha4(i+1,j) )
   ! localise  au point  ... U (i,j) ...
-  !
+
   !    masseby(i,j) = masse(i,j  ) * ( alpha2(i,j  ) + alpha3(i,j  )  +
   !               masse(i,j+1) * ( alpha1(i,j+1) + alpha4(i,j+1)
   ! localise  au point  ... V (i,j) ...
-  !
-  !
+
+
   !=======================================================================
 
@@ -92 +94 @@
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
   DO   l = 1 , llm
-  !
+
     DO    ij     = ijb, ije
      masse(ij,l) = airesurg(ij) * ( p(ij,l) - p(ij,l+1) )
     ENDDO
-  !
+
     DO   ij = ijb, ije,iip1
      masse(ij+ iim,l) = masse(ij,l)
     ENDDO
-  !
+
   !   DO    ij     = 1,  iim
   !    masse(   ij   ,l) = masse(   ij   ,l) * aire(  ij    )