Changeset 83 for trunk/mars/libf/phymars/watercloud.F

Timestamp:

Mar 1, 2011, 4:53:50 PM (14 years ago)

Author:

aslmd

Message:

mars + LMD_MM_MARS : modifications pour cycle de l'eau, valeurs tunees JBM

---

used settings reached by JBM to obtain his PhD results

alb_surfice = 0.45 --- in physiq.F and meso_physiq.F
ccn_factor = 4.5 --- in watercloud.F
nuice_sed = 0.45 --- in callsedim.F

NB: this is supposed to be further refined in the future

File:

• trunk/mars/libf/phymars/watercloud.F (modified) (3 diffs)

trunk/mars/libf/phymars/watercloud.F

@@ -55 +55 @@
       REAL ccn(ngridmx,nlayermx)   ! Cloud condensation nuclei
                                    !   (particules kg-1)
-c     CCN reduction factor
-      REAL, PARAMETER :: ccn_factor = 4.5  !! comme TESTS_JB // 1. avant
       real rdust(ngridmx,nlayermx) ! Dust geometric mean radius (m)
 
@@ -137 +135 @@
         write(*,*) "            i_ice=",i_ice
 
-        write(*,*) "water_param CCN reduction factor:", ccn_factor
- 
         firstcall=.false.
       ENDIF ! of IF (firstcall)
@@ -172 +168 @@
       do l=1,nlay
         do ig=1,ngrid
-          ccn(ig,l) = ccn(ig,l) / ccn_factor
-c         TEMPORAIRE : réduction du nombre de nuclei FF 04/2008 :
-c         reduction facteur 3
-c         ccn(ig,l) = ccn(ig,l) / 27.
-c         reduction facteur 2
-c         ccn(ig,l) = ccn(ig,l) / 8.
 c         Calcul du rayon moyen des particules de glace.
 c         Hypothese : Dans une couche, la glace presente se