Changeset 4618 for LMDZ6/trunk

Timestamp:

Jul 10, 2023, 12:38:18 AM (12 months ago)

Author:

yann meurdesoif

Message:

Fix compilation error when activating Dust compilation.
Variable entr_therm must have INTENT(INOUT), to be compliant with the declared interface of thermcell_dq recently introduced by the use of the module lmdz_thermcell_dq

YM

File:

• LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -804 +804 @@
 
       USE mod_phys_lmdz_transfert_para
-
-  USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
-       mth_cur, phys_cal_update
+      USE lmdz_thermcell_dq,  ONLY : thermcell_dq
+      USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
+                              mth_cur, phys_cal_update
 
 !
@@ -1070 +1070 @@
 !----------
       REAL,DIMENSION(klon,klev+1),INTENT(IN)   :: fm_therm
-      REAL,DIMENSION(klon,klev),INTENT(IN)     :: entr_therm
+      REAL,DIMENSION(klon,klev),INTENT(INOUT)     :: entr_therm