Changeset 6140 for LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

Timestamp:

Mar 27, 2026, 12:43:59 PM (2 weeks ago)

Author:

evignon

Message:

suppression de la routine nuage (et des parametres associes) devenue obsolete depuis avant LMDZ4

File:

• LMDZ6/trunk/libf/phylmd/conf_phys_m.f90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

@@ -21 +21 @@
     REAL, SAVE, PROTECTED :: facttemps, fact_cldcon
     !$OMP THREADPRIVATE(facttemps,fact_cldcon)
-    LOGICAL, SAVE, PROTECTED :: ok_newmicro
-    !$OMP THREADPRIVATE(ok_newmicro)
     INTEGER, SAVE, PROTECTED :: iflag_cld_th
     !$OMP THREADPRIVATE(iflag_cld_th)
@@ -700 +698 @@
 
     !
-    !
-    ok_newmicro = .TRUE.
-    CALL getin_p('ok_newmicro',ok_newmicro)
-    !
     !-----------------------------------------------------------------------
     ! Longitude solaire pour le calcul de l'ensoleillement en degre
@@ -747 +741 @@
     CALL getin_p('inertie_sol',inertie_sol)
 
-    !
-    !
-    rad_froid = 35.0
-    CALL getin_p('rad_froid',rad_froid)
-
-    !
-    !
-    rad_chau1 = 13.0
-    CALL getin_p('rad_chau1',rad_chau1)
-
-    !
-    !
-    rad_chau2 = 9.0
-    CALL getin_p('rad_chau2',rad_chau2)
-
-
-    !
+
     !
     iflag_ice_thermo = 0
@@ -1157 +1135 @@
     ok_new_lscp = .FALSE.
     CALL getin_p('ok_new_lscp', ok_new_lscp)
-    !
-
-
-
-    ok_icefra_lscp = .FALSE.
-    CALL getin_p('ok_icefra_lscp', ok_icefra_lscp)
     !
 
@@ -1495 +1467 @@
     WRITE(lunout,*) 'conf_phys :  fact_cldcon = ', fact_cldcon
     WRITE(lunout,*) 'conf_phys :  facttemps = ', facttemps
-    WRITE(lunout,*) 'conf_phys :  ok_newmicro = ',ok_newmicro 
     WRITE(lunout,*) 'conf_phys :  top_height = ',top_height 
-    WRITE(lunout,*) 'conf_phys :  rad_froid = ',rad_froid
-    WRITE(lunout,*) 'conf_phys :  rad_chau1 = ',rad_chau1
-    WRITE(lunout,*) 'conf_phys :  rad_chau2 = ',rad_chau2
     WRITE(lunout,*) 'conf_phys :  iflag_ice_thermo = ',iflag_ice_thermo
     WRITE(lunout,*) 'conf_phys :  ok_ice_supersat = ',ok_ice_supersat
@@ -1598 +1566 @@
     WRITE(lunout,*) 'conf_phys :  ok_daily_climoz = ',ok_daily_climoz
     WRITE(lunout,*) 'conf_phys :  ok_new_lscp = ', ok_new_lscp
-    WRITE(lunout,*) 'conf_phys :  ok_icefra_lscp = ', ok_icefra_lscp
     WRITE(lunout,*) 'conf_phys :  read_climoz = ', read_climoz
     WRITE(lunout,*) 'conf_phys :  carbon_cycle_tr = ', carbon_cycle_tr