Changeset 420 for trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

Timestamp:

Nov 24, 2011, 9:54:55 AM (13 years ago)

Author:

tnavarro

Message:

24/11/11 == TN

corrected minor bug in updatereffrad.F : reffdust was not saved

ccn_factor as not correctly used in sedimentation.

It is now initialized in inifis.F, declared in tracer.h and
used in both simpleclouds.F & callsedim.F to update ice radius.

Commented diagfi outputs in aeropacity.F & improvedclouds.F for non scavenging users.

File:

• trunk/LMDZ.MARS/libf/phymars/simpleclouds.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/simpleclouds.F

@@ -89 +89 @@
                                       ! Typical dust number density (#/kg)
 c     CCN reduction factor
-      REAL, PARAMETER :: ccn_factor = 4.5  !! comme TESTS_JB // 1. avant
+c      REAL, PARAMETER :: ccn_factor = 4.5  !! comme TESTS_JB // 1. avant
       
       REAL Mcon_out(ngridmx,nlayermx) ! mass to be condensed (not dMice !!)
-
-
-c------------------------------------------------------------------
-
-c     Write ccn_factor;
-      IF (firstcall) THEN
-        write(*,*) "water_param CCN reduc. fac. ", ccn_factor
-        write(*,*) "Careful: only used when microphys=F, otherwise"
-        write(*,*) "  the contact parameter is used instead;"
-        firstcall=.false.
-      END IF
 
 c-----------------------------------------------------------------------