Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

Timestamp:

Jul 29, 2024, 11:01:04 PM (7 weeks ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

@@ -2372 +2372 @@
             nf90_inq_dimid,nf90_inquire_dimension
 
+            USE lmdz_yomcst
+
       IMPLICIT NONE
 
-      INCLUDE "YOMCST.h"
 
       INTEGER ntime,nlevel
@@ -2945 +2946 @@
 
       SUBROUTINE read_circ(nlev_circ,cf,lwp,iwp,reliq,reice,t,z,p,pm,h2o,o3,sza)
+
+      USE lmdz_yomcst
       
       parameter (ncm_1=49180)
-      INCLUDE "YOMCST.h"
 
       REAL albsfc(ncm_1), albsfc_w(ncm_1)
@@ -3051 +3053 @@
       SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3)
       
-      INCLUDE "YOMCST.h"
+      USE lmdz_yomcst
 
       REAL t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)