Changeset 5281 for LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90

Timestamp:

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

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d_common/ugeostr.f90

@@ -11 +11 @@
   ! levels are pressure levels.
 
+  USE comgeom2_mod_h
   use comconst_mod, only: omeg, rad
-  
+
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
@@ -20 +21 @@
 
 
-  include "comgeom2.h"
 
   real ucov(iip1,jjp1,llm),phi(iip1,jjp1,llm)