Changeset 2109 for LMDZ5/trunk/libf/phylmd/newmicro.F90

Timestamp:

Aug 22, 2014, 12:22:58 PM (10 years ago)

Author:

jbmadeleine

Message:

nettoyage de icefrac_lsc: les paramètres t_glace_min, t_glace_max et
exposant_glace sont à présents chargés à partir de nuage.h et non
donnés en argument;

cleaning of icefrac_lsc: parameters t_glace_min, t_glace_max and
exposant_glace are loaded from the nuage.h file instead of being
given as arguments;

File:

• LMDZ5/trunk/libf/phylmd/newmicro.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/newmicro.F90

@@ -12 +12 @@
     reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra
   USE phys_state_var_mod, ONLY: rnebcon, clwcon
-  USE icefrac_lsc_mod ! cloud microphysics (JBM 3/14)
+  USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
   IMPLICIT NONE
   ! ======================================================================
@@ -202 +202 @@
   ELSE ! of IF (iflag_t_glace.EQ.0)
     DO k = 1, klev
-        CALL icefrac_lsc(klon,t(:,k),pplay(:,k)/paprs(:,1), &
-&               t_glace_min,t_glace_max,exposant_glace,zfice(:,k))
+        CALL icefrac_lsc(klon,t(:,k),pplay(:,k)/paprs(:,1),zfice(:,k))
  
 
-        ! JBM: icefrac_lsc is now a function contained in microphys_mod
+        ! JBM: icefrac_lsc is now contained icefrac_lsc_mod
 !       zfice(i, k) = icefrac_lsc(t(i,k), t_glace_min, &
 !                                 t_glace_max, exposant_glace)