Changeset 420 for trunk/LMDZ.MARS/libf/phymars/inifis.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/inifis.F (modified) (2 diffs)

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

@@ -62 +62 @@
 #include "slope.h"
 #include "microphys.h"
+#include "tracer.h"
 #ifdef MESOSCALE
 #include "comsoil.h"     !!MESOSCALE -- needed to fill volcapa
@@ -417 +418 @@
            stop
          endif
+         
+! ccn factor if no scavenging         
+        write(*,*) "water param CCN reduc. factor ?", ccn_factor
+        ccn_factor = 4.5
+        call getin("ccn_factor",ccn_factor)
+        write(*,*)" ccn_factor = ",ccn_factor
+        write(*,*)"Careful: only used when microphys=F, otherwise"
+        write(*,*)"the contact parameter is used instead;"
+
 ! microphys
          write(*,*)"Microphysical scheme for water-ice clouds?"