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

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

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

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

@@ -8 +8 @@
       USE parallel_lmdz
       USE misc_mod
-      USE infotrac, ONLY : nqtot
-      use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid
+      USE infotrac, ONLY: nqtot
+      use com_io_dyn_mod, ONLY: histaveid,histvaveid,histuaveid
       USE comconst_mod, ONLY: cpp
       USE temps_mod, ONLY: itau_dyn
-      USE mod_xios_dyn3dmem, ONLY : writefield_dyn_u, writefield_dyn_v
+      USE mod_xios_dyn3dmem, ONLY: writefield_dyn_u, writefield_dyn_v
       
       implicit none
@@ -97 +97 @@
 
 ! Passage aux composantes naturelles du vent
-      call covnat_loc(llm, ucov, vcov, unat, vnat)
+      CALL covnat_loc(llm, ucov, vcov, unat, vnat)
 
 !  Appels a histwrite pour l'ecriture des variables a sauvegarder