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

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

@@ -18 +18 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
-  !
+
   !   Routine d'initialisation des ecritures des fichiers histoires LMDZ
   !   au format IOIPSL. Initialisation du fichier histoire moyenne.
-  !
+
   !   Appels succesifs des routines: histbeg
   !                              histhori
@@ -29 +31 @@
   !                              histdef
   !                              histend
-  !
+
   !   Entree:
-  !
+
   !  day0,anne0: date de reference
   !  tstep : frequence d'ecriture
   !  t_ops: frequence de l'operation pour IOIPSL
   !  t_wrt: frequence d'ecriture sur le fichier
-  !
+
   !   Sortie:
   !  fileid: ID du fichier netcdf cree
-  !
+
   !   L. Fairhead, LMD, 03/99
-  !
+
   ! =====================================================================
-  !
+
   !   Declarations
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments
-  !
+
   INTEGER(kind = 4) day0, anne0
   REAL :: tstep, t_ops, t_wrt
@@ -55 +57 @@
   ! This routine needs IOIPSL
   !   Variables locales
-  !
+
   INTEGER :: tau0
   REAL :: zjulian
@@ -82 +84 @@
   IF (adjust) return
 
-  !
+
   !  Initialisations
-  !
+
   pi = 4. * atan (1.)
-  !
+
   !  Appel a histbeg: creation du fichier netcdf et initialisations diverses
   !
@@ -192 +194 @@
 
 
-  !
+
   !  Appel a histvert pour la grille verticale
-  !
+
   CALL histvert(histaveid, 'presnivs', 'Niveaux Pression&
           &     approximatifs', 'mb', llm, presnivs / 100., zvertiid, 'down')
@@ -202 +204 @@
           &     approximatifs', 'mb', llm, presnivs / 100., zvertiidu, 'down')
 
-  !
+
   !  Appels a histdef pour la definition des variables a sauvegarder
-  !
+
   !  Vents U
-  !
+
   jjn = jj_nb
   CALL histdef(histuaveid, 'u', 'vent u moyen ', &
@@ -212 +214 @@
           32, 'ave(X)', t_ops, t_wrt)
 
-  !
+
   !  Vents V
-  !
+
   IF (pole_sud) jjn = jj_nb - 1
   CALL histdef(histvaveid, 'v', 'vent v moyen', &
@@ -220 +222 @@
           32, 'ave(X)', t_ops, t_wrt)
 
-  !
+
   !  Temperature
-  !
+
   jjn = jj_nb
   CALL histdef(histaveid, 'temp', 'temperature moyenne', 'K', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'ave(X)', t_ops, t_wrt)
-  !
+
   !  Temperature potentielle
-  !
+
   CALL histdef(histaveid, 'theta', 'temperature potentielle', 'K', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
@@ -235 +237 @@
 
 
-  !
+
   !  Geopotentiel
-  !
+
   CALL histdef(histaveid, 'phi', 'geopotentiel moyen', '-', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'ave(X)', t_ops, t_wrt)
-  !
+
   !  Traceurs
-  !
+
   !    DO iq=1,nqtot
   !      CALL histdef(histaveid, tracers(iq)%name,
@@ -250 +252 @@
   ! .             32, 'ave(X)', t_ops, t_wrt)
   !    enddo
-  !
+
   !  Masse
-  !
+
   CALL histdef(histaveid, 'masse', 'masse moyenne', 'kg', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'ave(X)', t_ops, t_wrt)
-  !
+
   !  Pression au sol
-  !
+
   CALL histdef(histaveid, 'ps', 'pression naturelle au sol', 'Pa', &
           iip1, jjn, thoriid, 1, 1, 1, -99, &
           32, 'ave(X)', t_ops, t_wrt)
-  !
+
   !  Geopotentiel au sol
-  !
+
   !  CALL histdef(histaveid, 'phis', 'geopotentiel au sol', '-',
   ! .             iip1, jjn, thoriid, 1, 1, 1, -99,
   ! .             32, 'ave(X)', t_ops, t_wrt)
-  !
+
   !  Fin
-  !
+
   CALL histend(histaveid)
   CALL histend(histuaveid)