Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90 (modified) (11 diffs)

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

@@ -1 +1 @@
 
 ! $Id$
-!
+
       SUBROUTINE writedyn_xios( vcov, ucov,teta,ppk,phi,q, &
                              masse,ps,phis)
@@ -15 +15 @@
       
       implicit none
-!
+
 !   Ecriture du fichier histoire au format xios
-!
-!
+
+
 !   Entree:
 !      vcov: vents v covariants
@@ -28 +28 @@
 !      ps   :pression au sol
 !      phis : geopotentiel au sol
-!      
+
 !   L. Fairhead, LMD, 03/21
-!
+
 ! =====================================================================
-!
+
 !   Declarations
       include "dimensions.h"
@@ -40 +40 @@
       include "iniprint.h"
 
-!
 !   Arguments
-!
 
       REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) 
@@ -54 +52 @@
 
 !   Variables locales
-!
+
       INTEGER,SAVE,ALLOCATABLE :: ndex2d(:),ndexu(:),ndexv(:)
       INTEGER :: iq, ii, ll
@@ -68 +66 @@
 !$OMP THREADPRIVATE(first)
 
-!
 !  Initialisations
-!
 
 !      WRITE(*,*)'IN WRITEDYN_XIOS'
@@ -103 +99 @@
       call covnat_loc(llm, ucov, vcov, unat, vnat)
 
-!
 !  Appels a histwrite pour l'ecriture des variables a sauvegarder
-!
+
 !  Vents U
-!
+
       ijb=ij_begin
       ije=ij_end
@@ -114 +109 @@
       CALL writefield_dyn_u('U', unat(ijb:ije,:))
 
-!
 !  Vents V
-!
+
       ije=ij_end
       IF (pole_sud) THEN
@@ -130 +124 @@
          CALL writefield_dyn_v('V', vbuffer(ijb:ije,:))
       ENDIF
-      
 
-      
-!
 !  Temperature potentielle moyennee
-!
+
       ijb=ij_begin
       ije=ij_end
@@ -141 +132 @@
      CALL writefield_dyn_u('THETA', teta(ijb:ije,:))
 
-!
 !  Temperature moyennee
-!
 
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)       
@@ -154 +143 @@
       CALL writefield_dyn_u('TEMP', tm(ijb:ije,:))
 
+!  Geopotentiel
 
-!
-!  Geopotentiel
-!
       CALL writefield_dyn_u('PHI', phi(ijb:ije,:))
 
+! Tracers?
 
-!
-! Tracers?
-!
 !        DO iq=1,nqtot
 !        ENDDO
 
+!  Masse
 
-!
-!  Masse
-!
       CALL writefield_dyn_u('MASSE', masse(ijb:ije,:))
 
+!  Pression au sol
 
-!
-!  Pression au sol
-!
       CALL writefield_dyn_u('PS', ps(ijb:ije))