Changeset 5281 for LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90

Timestamp:

Oct 28, 2024, 11:17:48 AM (10 hours ago)

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/writedyn_xios.f90

@@ -5 +5 @@
      &                           masse,ps,phis)
 
+      USE comgeom_mod_h
       USE lmdz_xios
       USE parallel_lmdz
@@ -13 +14 @@
       USE temps_mod, ONLY: itau_dyn
       USE mod_xios_dyn3dmem, ONLY : writefield_dyn_u, writefield_dyn_v
-      
+
       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
@@ -39 +40 @@
 
 
-      include "comgeom.h"
       include "description.h"
       include "iniprint.h"