Changeset 5368 for LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

Timestamp:

Dec 3, 2024, 12:40:26 PM (37 hours ago)

Author:

abarral

Message:

(WIP) Turn implicit into explicit declarations
Turn 1dconv.h into a module to that end

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

@@ -2960 +2960 @@
       SUBROUTINE read_circ(nlev_circ,cf,lwp,iwp,reliq,reice,t,z,p,pm,h2o,o3,sza)
 
+      USE yomcst_mod_h, ONLY: rpi
+
+      INTEGER :: ncm_1, nlev_circ, ilev, iskip, icm_1, il
       parameter (ncm_1=49180)
 
-      real albsfc(ncm_1), albsfc_w(ncm_1)
+      REAL :: albsfc(ncm_1), albsfc_w(ncm_1), aer_alpha, sw_dn_toa, tsfc
       real cf(nlev_circ), icefra(nlev_circ), deice(nlev_circ), &
            reliq(nlev_circ), reice(nlev_circ), lwp(nlev_circ), iwp(nlev_circ)
@@ -3064 +3067 @@
       SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3)
 
-
+      INTEGER nlev_rtmip, il
       real t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)
       real temp(nlev_rtmip), play(nlev_rtmip),ovap(nlev_rtmip), oz(nlev_rtmip),plev(nlev_rtmip+1)