Changeset 5645 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

May 7, 2025, 11:42:57 AM (3 months ago)

Author:

evignon

Message:

Le nom du parametre new_oliq est tres trompeur. Je le change en liqice_in_radocond

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• phyaqua_mod.F90 (modified) (1 diff)
• phyetat0_mod.F90 (modified) (1 diff)
• phyredem.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/phyaqua_mod.F90

@@ -294 +294 @@
     clesphy0(3) = 1. ! cycle_diurne
     clesphy0(4) = 1. ! soil_model
-    clesphy0(5) = 1. ! new_oliq
+    clesphy0(5) = 1. ! liqice_in_radocond
     clesphy0(6) = 0. ! ok_orodr
     clesphy0(7) = 0. ! ok_orolf

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -175 +175 @@
   IF (iflag_cycle_diurne.GE.1) tab_cntrl( 7) = iflag_cycle_diurne
   IF (soil_model) tab_cntrl( 8) =1.
-  IF (new_oliq) tab_cntrl( 9) =1.
+  IF (liqice_in_radocond) tab_cntrl( 9) =1.
   IF (ok_orodr) tab_cntrl(10) =1.
   IF (ok_orolf) tab_cntrl(11) =1.

LMDZ6/trunk/libf/phylmdiso/phyredem.F90

@@ -121 +121 @@
   IF( iflag_cycle_diurne.GE.1 ) tab_cntrl( 7 ) = iflag_cycle_diurne
   IF(   soil_model ) tab_cntrl( 8 ) = 1.
-  IF(     new_oliq ) tab_cntrl( 9 ) = 1.
+  IF(     liqice_in_radocond ) tab_cntrl( 9 ) = 1.
   IF(     ok_orodr ) tab_cntrl(10 ) = 1.
   IF(     ok_orolf ) tab_cntrl(11 ) = 1.

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -528 +528 @@
     !cc      PARAMETER (soil_model=.FALSE.)
     !======================================================================
-    ! Dans les versions precedentes, l'eau liquide nuageuse utilisee dans
-    ! le calcul du rayonnement est celle apres la precipitation des nuages.
-    ! Si cette cle new_oliq est activee, ce sera une valeur moyenne entre
-    ! la condensation et la precipitation. Cette cle augmente les impacts
-    ! radiatifs des nuages.
-    !cc      LOGICAL new_oliq
-    !cc      PARAMETER (new_oliq=.FALSE.)
-    !======================================================================
     ! Clefs controlant deux parametrisations de l'orographie:
     !c      LOGICAL ok_orodr
@@ -5227 +5219 @@
        DO i = 1, klon
           cldfra(i,k) = rneb(i,k)
-          !CR: a quoi ca sert? Faut-il ajouter qs_seri?
-          !EV: en effet etrange, j'ajouterais aussi qs_seri
-          !    plus largement, je nettoierais (enleverrais) ces lignes
-          IF (.NOT.new_oliq) radocond(i,k) = ql_seri(i,k)
+          ! keep only liquid droplets in radocond if not liqice_in_radocond
+          IF (.NOT.liqice_in_radocond) radocond(i,k) = ql_seri(i,k)
        ENDDO
     ENDDO