Changeset 5646 for LMDZ6

Timestamp:

May 7, 2025, 11:48:53 AM (5 weeks ago)

Author:

evignon

Message:

suppression du doublon inutile rad_froid

Location:

LMDZ6/trunk/libf/phylmd

Files:

• lmdz_cloud_optics_prop.f90 (modified) (1 diff)
• lmdz_cloud_optics_prop_ini.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_cloud_optics_prop.f90

@@ -25 +25 @@
   USE lmdz_cloud_optics_prop_ini , ONLY : k_ice0, df
   USE lmdz_cloud_optics_prop_ini , ONLY : rg, rd, rpi
-  USE lmdz_cloud_optics_prop_ini , ONLY : rad_chau1, rad_chau2, rad_froid, iflag_rei
+  USE lmdz_cloud_optics_prop_ini , ONLY : rad_chau1, rad_chau2, iflag_rei
   USE lmdz_cloud_optics_prop_ini , ONLY : ok_icefra_lscp, rei_max, rei_min
   USE lmdz_cloud_optics_prop_ini , ONLY : rei_coef, rei_min_temp

LMDZ6/trunk/libf/phylmd/lmdz_cloud_optics_prop_ini.f90

@@ -19 +19 @@
   REAL, PROTECTED :: cdnc_min_m3=-1.
   REAL, PROTECTED :: rpi, rg, rd
-  REAL, PROTECTED :: rad_chau1, rad_chau2, rad_froid
+  REAL, PROTECTED :: rad_chau1, rad_chau2
   REAL, PROTECTED :: rei_max, rei_min
   REAL, PROTECTED :: rei_coef, rei_min_temp
@@ -38 +38 @@
 !$OMP THREADPRIVATE(bl95_b0, bl95_b1, cdnc_max, cdnc_max_m3)
 !$OMP THREADPRIVATE(cdnc_min, cdnc_min_m3, rpi, rg, rd)
-!$OMP THREADPRIVATE(rad_chau1, rad_chau2, rad_froid, rei_max, rei_min)
+!$OMP THREADPRIVATE(rad_chau1, rad_chau2, rei_max, rei_min)
 !$OMP THREADPRIVATE(rei_coef, rei_min_temp)
 !$OMP THREADPRIVATE(zepsec) 
@@ -92 +92 @@
     CALL getin_p('rad_chau1',rad_chau1)
     CALL getin_p('rad_chau2',rad_chau2)
-    CALL getin_p('rad_froid ',rad_froid)
     CALL getin_p('ok_icefra_lscp', ok_icefra_lscp)
     iflag_rei = 0