Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

Timestamp:

Jul 26, 2024, 5:56:37 PM (3 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

File:

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

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -41 +41 @@
   USE lmdz_strings, ONLY: strLower
   USE lmdz_iniprint, ONLY: lunout, prt_level
+  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
+          tetagrot, tetatemp, coefdis, vert_prof_dissip
 
   IMPLICIT NONE
@@ -47 +49 @@
   PUBLIC :: etat0dyn_netcdf
 
-  include "dimensions.h"
-  include "paramet.h"
-  include "comgeom2.h"
-  include "comdissnew.h"
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  INCLUDE "comgeom2.h"
   REAL, SAVE :: deg2rad
   INTEGER, SAVE :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn