Changeset 420 for trunk/LMDZ.MARS/libf/phymars/tracer.h

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/tracer.h (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/tracer.h

@@ -16 +16 @@
       real nuice_sed   ! Sedimentation effective variance of the water ice dist.
       real ref_r0        ! for computing reff=ref_r0*r0 (in log.n. distribution)
+      
+      real ccn_factor  ! ratio of nuclei for water ice particles
 
       real dryness(ngridmx)!"Dryness coefficient" for grnd water ice sublimation
@@ -73 +75 @@
       COMMON/tracer/radius,rho_q,alpha_lift,alpha_devil,mmol,           &
      & varian,r3n_q,rho_dust,rho_ice,nuice_ref,nuice_sed,               &
-     & ref_r0,dryness
+     & ref_r0,ccn_factor,dryness
       COMMON/tracer2/                                                   &
      & igcm_dustbin,igcm_dust_mass,igcm_dust_number,                    &