Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedynav_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/writedynav_loc.f90 (modified) (14 diffs)

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

@@ -16 +16 @@
   USE lmdz_comgeom
 
+  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+  USE lmdz_paramet
   IMPLICIT NONE
 
-  !
+
   !   Ecriture du fichier histoire au format IOIPSL
-  !
+
   !   Appels succesifs des routines: histwrite
-  !
+
   !   Entree:
   !  histid: ID du fichier histoire
@@ -34 +36 @@
   !  ps   :pression au sol
   !  phis : geopotentiel au sol
-  !
-  !
+
+
   !   Sortie:
   !  fileid: ID du fichier netcdf cree
-  !
+
   !   L. Fairhead, LMD, 03/99
-  !
+
   ! =====================================================================
-  !
+
   !   Declarations
-  INCLUDE "dimensions.h"
-  INCLUDE "paramet.h"
-
-  !
+
+
+
+
   !   Arguments
   !
@@ -62 +64 @@
   ! This routine needs IOIPSL
   !   Variables locales
-  !
+
   INTEGER, SAVE, ALLOCATABLE :: ndex2d(:), ndexu(:), ndexv(:)
   INTEGER :: iq, ii, ll
@@ -73 +75 @@
   !$OMP THREADPRIVATE(first)
 
-  !
+
   !  Initialisations
-  !
+
   IF (adjust) return
 
@@ -101 +103 @@
   CALL covnat_loc(llm, ucov, vcov, unat, vnat)
 
-  !
+
   !  Appels a histwrite pour l'ecriture des variables a sauvegarder
-  !
+
   !  Vents U
   !
@@ -117 +119 @@
   !$OMP END MASTER
 
-  !
+
   !  Vents V
-  !
+
   ije = ij_end
   IF (pole_sud) jjn = jj_nb - 1
@@ -130 +132 @@
 
 
-  !
+
   !  Temperature potentielle moyennee
-  !
+
   ijb = ij_begin
   ije = ij_end
@@ -141 +143 @@
   !$OMP END MASTER
 
-  !
+
   !  Temperature moyennee
   !
@@ -159 +161 @@
 
 
-  !
+
   !  Geopotentiel
-  !
+
   !$OMP MASTER
   CALL histwrite(histaveid, 'phi', itau_w, phi(ijb:ije, :), &
@@ -168 +170 @@
 
 
-  !
+
   !  Traceurs
-  !
+
   !!$OMP MASTER
   !    DO iq=1,nqtot
@@ -179 +181 @@
 
 
-  !
+
   !  Masse
-  !
+
   !$OMP MASTER
   CALL histwrite(histaveid, 'masse', itau_w, masse(ijb:ije, :), &
@@ -188 +190 @@
 
 
-  !
+
   !  Pression au sol
-  !
+
   !$OMP MASTER
 
@@ -197 +199 @@
   !$OMP END MASTER
 
-  !
+
   !  Geopotentiel au sol
-  !
+
   !$OMP MASTER
   ! CALL histwrite(histaveid, 'phis', itau_w, phis(ijb:ije),
@@ -205 +207 @@
   !$OMP END MASTER
 
-  !
+
   !  Fin
-  !
+
   !$OMP MASTER
   IF (ok_sync) THEN