Changeset 3613 for trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90

Timestamp:

Feb 7, 2025, 4:58:43 PM (5 days ago)

Author:

afalco

Message:

Pluto: fixes for OpenMP.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90 (modified) (5 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90

@@ -14 +14 @@
       use radinc_h
       use radcommon_h
-      use ioipsl_getincom
+      use ioipsl_getin_p_mod, only: getin_p
       use suaer_corrk_mod, only: suaer_corrk
       use radii_mod, only: su_aer_radii,haze_reffrad_fix
@@ -68 +68 @@
       REAL zzlev(ngrid,nlayer)             ! Altitude at the layer boundaries.
       REAL pplev(ngrid,nlayer+1)           ! pres. level at GCM layer boundaries
- 
+
       REAL pt(ngrid,nlayer)               ! air temperature (K)
       REAL tsurf(ngrid)                     ! surface temperature (K)
@@ -223 +223 @@
 
          if (is_master) print*, "callcorrk: Correlated-k data folder:",trim(datadir)
-         call getin("corrkdir",corrkdir)
+         call getin_p("corrkdir",corrkdir)
          print*, "corrkdir = ",corrkdir
          write( tmp1, '(i3)' ) L_NSPECTI
@@ -248 +248 @@
                reffrad(:,:,1) = mp2m_rc_sph(:,:) * exp(5.*sig**2 / 2.)
             ELSEWHERE
-               reffrad(:,:,1) = 0d0         
+               reffrad(:,:,1) = 0d0
             ENDWHERE
             nueffrad(:,:,1) = exp(sig**2) - 1
@@ -259 +259 @@
             ENDWHERE
             nueffrad(:,:,2) = exp(sig**2) - 1
-           
+
            else
             do iaer=1,naerkind