Changeset 5118 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90

Timestamp:

Jul 24, 2024, 4:39:59 PM (3 months ago)

Author:

abarral

Message:

Replace iniprint.h by lmdz_iniprint.f90
(lint) along the way

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90

@@ -9 +9 @@
   USE temps_mod, ONLY: itau_dyn
   USE lmdz_description, ONLY: descript
+  USE lmdz_iniprint, ONLY: lunout, prt_level
 
   IMPLICIT NONE
@@ -33 +34 @@
   include "paramet.h"
   include "comgeom.h"
-  include "iniprint.h"
 
   !   Arguments
 
-  REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) 
-  REAL teta(ip1jmp1*llm), phi(ip1jmp1, llm), ppk(ip1jmp1*llm)     
-  REAL ps(ip1jmp1), masse(ip1jmp1, llm)                   
-  REAL phis(ip1jmp1)                  
+  REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
+  REAL teta(ip1jmp1 * llm), phi(ip1jmp1, llm), ppk(ip1jmp1 * llm)
+  REAL ps(ip1jmp1), masse(ip1jmp1, llm)
+  REAL phis(ip1jmp1)
   REAL q(ip1jmp1, llm, nqtot)
   INTEGER time
@@ -47 +47 @@
   !   Variables locales
 
-  INTEGER ndex2d(ip1jmp1), ndexu(ip1jmp1*llm), ndexv(ip1jm*llm)
+  INTEGER ndex2d(ip1jmp1), ndexu(ip1jmp1 * llm), ndexv(ip1jm * llm)
   INTEGER iq, ii, ll
-  REAL tm(ip1jmp1*llm)
+  REAL tm(ip1jmp1 * llm)
   REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
   LOGICAL ok_sync
@@ -74 +74 @@
   !  Vents U
 
-  CALL histwrite(histuaveid, 'u', itau_w, unat,  &
-       iip1*jjp1*llm, ndexu)
+  CALL histwrite(histuaveid, 'u', itau_w, unat, &
+          iip1 * jjp1 * llm, ndexu)
 
   !  Vents V
 
-  CALL histwrite(histvaveid, 'v', itau_w, vnat,  &
-       iip1*jjm*llm, ndexv)
+  CALL histwrite(histvaveid, 'v', itau_w, vnat, &
+          iip1 * jjm * llm, ndexv)
 
   !  Temperature potentielle moyennee
 
-  CALL histwrite(histaveid, 'theta', itau_w, teta,  &
-       iip1*jjp1*llm, ndexu)
+  CALL histwrite(histaveid, 'theta', itau_w, teta, &
+          iip1 * jjp1 * llm, ndexu)
 
   !  Temperature moyennee
 
   do ii = 1, ijp1llm
-     tm(ii) = teta(ii) * ppk(ii)/cpp
+    tm(ii) = teta(ii) * ppk(ii) / cpp
   enddo
-  CALL histwrite(histaveid, 'temp', itau_w, tm,  &
-       iip1*jjp1*llm, ndexu)
+  CALL histwrite(histaveid, 'temp', itau_w, tm, &
+          iip1 * jjp1 * llm, ndexu)
 
   !  Geopotentiel
 
-  CALL histwrite(histaveid, 'phi', itau_w, phi,  &
-       iip1*jjp1*llm, ndexu)
+  CALL histwrite(histaveid, 'phi', itau_w, phi, &
+          iip1 * jjp1 * llm, ndexu)
 
   !  Traceurs
@@ -109 +109 @@
   !  Masse
 
-  CALL histwrite(histaveid, 'masse', itau_w, masse,  &
-       iip1*jjp1*llm, ndexu)
+  CALL histwrite(histaveid, 'masse', itau_w, masse, &
+          iip1 * jjp1 * llm, ndexu)
 
   !  Pression au sol
 
-  CALL histwrite(histaveid, 'ps', itau_w, ps, iip1*jjp1, ndex2d)
+  CALL histwrite(histaveid, 'ps', itau_w, ps, iip1 * jjp1, ndex2d)
 
   ! Geopotentiel au sol
@@ -121 +121 @@
 
   IF (ok_sync) THEN
-     CALL histsync(histaveid)
-     CALL histsync(histvaveid)
-     CALL histsync(histuaveid)
+    CALL histsync(histaveid)
+    CALL histsync(histvaveid)
+    CALL histsync(histuaveid)
   ENDIF