Changeset 4762 for LMDZ6/trunk/libf/phylmd/StratAer

Timestamp:

Dec 10, 2023, 10:37:06 PM (13 months ago)

Author:

lguez

Message:

Use YOMCST from LMDZ, not from RRTM or ECRad

Because the modules yomcst in RRTM and ECRad do not contain the same
objects. In particular, RKBOL is in rrtm/yomcst.F90 but not in
ecrad/yomcst.F90. So compilation with -rad ecrad -strataer true
fails. And we want to avoid modifying files from ECRad.

Location:

LMDZ6/trunk/libf/phylmd/StratAer

Files:

• coagulate.F90 (modified) (2 diffs)
• nucleation_tstep_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/StratAer/coagulate.F90

@@ -27 +27 @@
   USE infotrac_phy
   USE phys_local_var_mod, ONLY: DENSO4, f_r_wet
-  USE YOMCST
 
   IMPLICIT NONE
@@ -81 +80 @@
   REAL                                          :: EvdW
 
+  include "YOMCST.h"
+
   DO i=1, nbtr_bin
    radius(i)=mdw(i)/2.

LMDZ6/trunk/libf/phylmd/StratAer/nucleation_tstep_mod.F90

@@ -10 +10 @@
   USE aerophys
   USE infotrac_phy
-  USE YOMCST, ONLY : RPI, RD, RMD, RKBOL, RNAVO
   USE strataer_local_var_mod, ONLY : flag_new_nucl
   
@@ -39 +38 @@
   REAL airn    ! Air molecule concentration in (cm-3) NOT IN USE
   REAL ipr     ! Ion pair production rate (cm-3 s-1) NOT IN USE
+
+  include "YOMCST.h"
 
   ! call nucleation routine
@@ -329 +330 @@
 
   USE aerophys
-  USE YOMCST, ONLY : RPI, RKBOL
 
   IMPLICIT NONE 
@@ -385 +385 @@
   DOUBLE PRECISION :: xloss       ! Ion loss rate 
   DOUBLE PRECISION :: recomb      ! Ion-ion recombination rate 
+
+  include "YOMCST.h"
 
   !--- 0) Initializations: