Changeset 5281 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

Timestamp:

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

Author:

abarral

Message:

Turn comgeom.h comgeom2.h into modules

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -70 +70 @@
 !-------------------------------------------------------------------------------
 #ifndef CPP_1D
+  USE comgeom2_mod_h
   USE indice_sol_mod
   USE netcdf,             ONLY: NF90_OPEN,    NF90_CREATE,  NF90_CLOSE,        &
@@ -82 +83 @@
   USE lmdz_cppkeys_wrapper, ONLY: nf90_format
   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
-IMPLICIT NONE
+  USE comgeom2_mod_h
+  IMPLICIT NONE
 !-------------------------------------------------------------------------------
 ! Arguments:
@@ -93 +95 @@
   REAL, DIMENSION(iip1,jjp1), INTENT(INOUT) :: phis   ! ground geopotential
   LOGICAL,                    INTENT(IN)    :: extrap ! SST extrapolation flag
-!-------------------------------------------------------------------------------
-! Local variables:
-  include "comgeom2.h"
 
 !--- INPUT NETCDF FILES AND VARIABLES NAMES ------------------------------------
@@ -339 +338 @@
 
 
-  include "comgeom2.h"
 !-----------------------------------------------------------------------------
 ! Arguments: