Changeset 5280 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Oct 28, 2024, 10:47:48 AM (4 days ago)

Author:

abarral

Message:

Turn comdissip.h, comdissipn.h, comdissnew.h into modules

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (2 diffs)

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

@@ -40 +40 @@
   USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time
   USE strings_mod, ONLY: strLower
-  
+
   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
+  USE comdissnew_mod_h
 IMPLICIT NONE
 
@@ -53 +54 @@
 
   include "comgeom2.h"
-  include "comdissnew.h"
   REAL, SAVE :: deg2rad
   INTEGER,            SAVE      :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn