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

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

@@ -21 +21 @@
   USE lmdz_comgeom2
 
+USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !====================================================================
-  !
+
   !   Sous-programme consacre à des diagnostics dynamiques de base
-  !
-  !
+
+
   !   De facon generale, les moyennes des scalaires Q sont ponderees par
   !   la masse.
-  !
+
   !   Les flux de masse sont eux simplement moyennes.
-  !
+
   !====================================================================
 
@@ -145 +147 @@
 
   !   Variables locales
-  !
+
   INTEGER :: tau0
   REAL :: zjulian
@@ -152 +154 @@
   INTEGER :: ii,jj
   INTEGER :: zan, dayref
-  !
+
   REAL,SAVE,ALLOCATABLE :: rlong(:),rlatg(:)
   INTEGER :: jjb,jje,jjn,ijb,ije
@@ -287 +289 @@
         bilan_dyn_domain_id)
 
-  !
+
   !  Appel a histvert pour la grille verticale
-  !
+
   CALL histvert(fileid, 'presnivs', 'Niveaux sigma','mb', &
         llm, presnivs, zvertiid)
-  !
+
   !  Appels a histdef pour la definition des variables a sauvegarder
   DO iQ=1,nQ
@@ -403 +405 @@
   !   Cumul
   !=====================================================================
-  !
+
   IF(icum==0) THEN
      jjb=jj_begin
@@ -689 +691 @@
   !   calcul de la moyenne zonale du transport :
   !   ------------------------------------------
-  !
+
   !                                 --
   ! TOT : la circulation totale       [ vq ]
-  !
+
   !                                  -     -
   ! MMC : mean meridional circulation [ v ] [ q ]
-  !
+
   !                                 ----      --       - -
   ! TRS : transitoires                [ v'q'] = [ vq ] - [ v q ]
-  !
+
   !                                 - * - *       - -       -     -
   ! STT : stationaires                [ v   q   ] = [ v q ] - [ v ] [ q ]
-  !
+
   !                                          - -
   !    on utilise aussi l'intermediaire TMP :  [ v q ]
-  !
+
   !    la variable zfactv transforme un transport meridien cumule
   !    en kg/s * unte-du-champ-transporte en m/s * unite-du-champ-transporte
-  !
+
   !   --------------------------------------------------------------