Changeset 3265 for LMDZ6/trunk/libf/phylmd/newmicro.F90

Timestamp:

Mar 14, 2018, 4:07:56 PM (6 years ago)

Author:

oboucher

Message:

Adding a print of cdnc_min following Fred's 3245 modset

File:

• LMDZ6/trunk/libf/phylmd/newmicro.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/newmicro.F90

@@ -1 +1 @@
 ! $Id$
-
-
 
 SUBROUTINE newmicro(ok_cdnc, bl95_b0, bl95_b1, paprs, pplay, t, pqlwp, pclc, &
@@ -10 +8 @@
   USE dimphy
   USE phys_local_var_mod, ONLY: scdnc, cldncl, reffclwtop, lcc, reffclws, &
-    reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, zfice
+      reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra, zfice
   USE phys_state_var_mod, ONLY: rnebcon, clwcon
   USE icefrac_lsc_mod ! computes ice fraction (JBM 3/14)
   USE ioipsl_getin_p_mod, ONLY : getin_p
+  USE print_control_mod, ONLY: lunout
+
 
   IMPLICIT NONE
@@ -181 +181 @@
   if (first) THEN
       call getin_p('cdnc_min',cdnc_min)
-      cdnc_min_m3=cdnc_min*1E6
+      cdnc_min_m3=cdnc_min*1.E6
       IF (cdnc_min_m3<0.) cdnc_min_m3=20.E6 ! astuce pour retrocompatibilite
+      write(lunout,*)'cdnc_min=', cdnc_min_m3/1.E6
   ENDIF