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

Timestamp:

Oct 28, 2024, 11:17:48 AM (3 days ago)

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.f90

@@ -9 +9 @@
   !   x  et y    sont des arguments de sortie pour le s-prog
   !
+  USE comgeom_mod_h
   USE parallel_lmdz
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
@@ -17 +18 @@
 
 
-  INCLUDE "comgeom.h"
   INTEGER :: klevel
   REAL :: rot( ijb_v:ije_v,klevel ),x( ijb_u:ije_u,klevel )