Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/inithist_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/inithist_loc.F90 (modified) (10 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/inithist_loc.F90

@@ -17 +17 @@
   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
-  !
+
   !   Appels succesifs des routines: histbeg
   !                              histhori
@@ -28 +30 @@
   !                              histdef
   !                              histend
-  !
+
   !   Entree:
-  !
+
   !  day0,anne0: date de reference
   !  tstep: duree du pas de temps en seconde
@@ -36 +38 @@
   !  t_wrt: frequence d'ecriture sur le fichier
   !  nq: nombre de traceurs
-  !
-  !
+
+
   !   L. Fairhead, LMD, 03/99
-  !
+
   ! =====================================================================
-  !
+
   !   Declarations
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
+
+
 
   !   Arguments
-  !
+
   INTEGER :: day0, anne0
   REAL :: tstep, t_ops, t_wrt
@@ -53 +55 @@
   ! This routine needs IOIPSL
   !   Variables locales
-  !
+
   INTEGER :: tau0
   REAL :: zjulian
@@ -80 +82 @@
   IF (adjust) return
 
-  !
+
   !  Initialisations
-  !
+
   pi = 4. * atan (1.)
-  !
+
   !  Appel a histbeg: creation du fichier netcdf et initialisations diverses
   !
@@ -200 +202 @@
           llm, presnivs / 100., zvertiidu, 'down')
 
-  !
+
   ! -------------------------------------------------------------
   !  Appels a histdef pour la definition des variables a sauvegarder
   ! -------------------------------------------------------------
-  !
+
   !  Vents U
-  !
+
   jjn = jj_nb
   CALL histdef(histuid, 'u', 'vent u', &
@@ -212 +214 @@
           32, 'inst(X)', t_ops, t_wrt)
 
-  !
+
   !  Vents V
-  !
+
   IF (pole_sud) jjn = jj_nb - 1
   CALL histdef(histvid, 'v', 'vent v', &
@@ -220 +222 @@
           32, 'inst(X)', t_ops, t_wrt)
 
-  !
+
   !  Temperature
-  !
+
   jjn = jj_nb
   CALL histdef(histid, 'temp', 'temperature', 'K', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'inst(X)', t_ops, t_wrt)
-  !
+
   !  Temperature potentielle
-  !
+
   CALL histdef(histid, 'theta', 'temperature potentielle', 'K', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
@@ -235 +237 @@
 
 
-  !
+
   !  Geopotentiel
-  !
+
   CALL histdef(histid, 'phi', 'geopotentiel', '-', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'inst(X)', t_ops, t_wrt)
-  !
+
   !  Traceurs
-  !
+
   !    DO iq=1,nqtot
   !      CALL histdef(histid, tracers(iq)%name,
@@ -250 +252 @@
   ! .             32, 'inst(X)', t_ops, t_wrt)
   !    enddo
-  !
+
   !  Masse
-  !
+
   CALL histdef(histid, 'masse', 'masse', 'kg', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
           32, 'inst(X)', t_ops, t_wrt)
-  !
+
   !  Pression au sol
-  !
+
   CALL histdef(histid, 'ps', 'pression naturelle au sol', 'Pa', &
           iip1, jjn, thoriid, 1, 1, 1, -99, &
           32, 'inst(X)', t_ops, t_wrt)
-  !
+
   !  Geopotentiel au sol
-  !
+
   !  CALL histdef(histid, 'phis', 'geopotentiel au sol', '-',
   ! .             iip1, jjn, thoriid, 1, 1, 1, -99,
   ! .             32, 'inst(X)', t_ops, t_wrt)
-  !
+
   !  Fin
-  !
+
   CALL histend(histid)
   CALL histend(histuid)