Changeset 358 for trunk/LMDZ.MARS/libf/phymars/initracer.F

Timestamp:

Nov 7, 2011, 6:39:24 PM (13 years ago)

Author:

aslmd

Message:

LMDZ.MARS:

---

A FIRST VERSION WITH SCAVENGING
TRANSPARENT TO CASUAL USER
FOR WATER CYCLE FOLKS, SEE BELOW

---

[TN and AS solved conflicts due to r330 >> r357]

---

07/11/11 == JBM

Changed watercloud.F to call two separate routines,

simpleclouds.F or improvedclouds.F, which are a simplified and
full microphysical scheme for cloud formation, respectively.
Removed the tag called "improved" in watercloud.F, and added
another tag called "microphys" which is defined in callphys.F
instead. Changed routines: callkeys, inifis, physiq, watercloud.

Reimplemented the use of typical profiles of dust particle sizes

and CCNs in simpleclouds.F. Corrected the previously used
analytical CCN profile. Moved ccn_factor to simpleclouds.F,
which won't be used in the new microphysical scheme. Changed
routines: aeropacity, physiq, simpleclouds, watercloud.

Computed rdust at the end of callsedim instead of updatereffrad,

except at firstcall. Renamed rfall into rsedcloud and moved it
in simpleclouds. Moved nuice_sed to initracer.F and added it to
tracer.h. Changed routines: callsedim, physiq, tracer.h,
watercloud, initracer, simpleclouds, updatereffrad.

Added two tracers for the CCNs. Added the different tests in

initracer.F to make sure that, for example, microphys is not
used without doubleq, etc. Corrected an inconsistency in
callsedim.F, and changed the way r0 is updated. Changes
routines: callsedim, inifis, initracer, physiq, testphys1d,
tracer.h.

Added the ability to have a spatially variable density in

newsedim (same method as that used for the radius of
sedimentation). Required the addition of one input to newsedim,
which is the size of the density variable "rho". Changed
routines: callsedim, newsedim.

Added an output to aeropacity called "tauscaling", which is a

factor to convert dust_mass and dust_number to true quantities,
based on tauvis. Removed ccn and qdust from aeropacity, which
are obsolete now.

Wrote improvedcloud.F which includes all the microphysical

scheme, and connected it to the sedimentation scheme. Added and
changed routines: callsedim, physiq, growthrate, nuclea,
improvedclouds, initracer, watercloud, microphys.h.

07/11/11 == TN

Added CCN & dust tracers updates in physiq.F

Corrected a bug that can give negative CCN numbers, due to the
use of single precision values (only 6 decimals) whereas up to 10E+10
CCN can be formed or disappears...

Corrected physical bug that causes h2o_vap or h2o_ice

to be negative in improvedclouds.F.

Corrected physical bug that causes CCN & dust tracers

to be negative in improvedclouds.F when all ice sublimates and
releases dust

Added parameter contact mteta in callphys.def

Default value is still 0.95, see inifis.F

Changed tendancy computation for dust_number in improvedclouds.F

that was not the right one. Indeed, the scavenged dust_number tracer
is computed from the dust_mass one, and its tendancy before scavenging
must be taken into account to compute its scavenging's tendancy.

File:

• trunk/LMDZ.MARS/libf/phymars/initracer.F (modified) (6 diffs)

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

@@ -213 +213 @@
       igcm_dust_mass=0
       igcm_dust_number=0
+      igcm_ccn_mass=0
+      igcm_ccn_number=0
       igcm_dust_submicron=0
       igcm_h2o_vap=0
@@ -271 +273 @@
         enddo
       endif ! of if (doubleq)
+      if (scavenging) then
+        do iq=1,nqmx
+          if (noms(iq).eq."ccn_mass") then
+            igcm_ccn_mass=iq
+            count=count+1
+          endif
+          if (noms(iq).eq."ccn_number") then
+            igcm_ccn_number=iq
+            count=count+1
+          endif
+        enddo
+      endif ! of if (scavenging)
       if (submicron) then
         do iq=1,nqmx
@@ -481 +495 @@
       rho_ice=920.    ! Water ice density (kg.m-3)
       nuice_ref=0.1   ! Effective variance nueff of the
-                      ! water-ice size distributions
+                      ! water-ice size distribution
+      nuice_sed=0.45   ! Sedimentation effective variance
+                      ! of the water-ice size distribution
 
       if (doubleq) then
@@ -530 +546 @@
         write(*,*) "initracer: doubleq_param alpha_lift:",
      &    alpha_lift(igcm_dust_mass)
-
       else
 
@@ -549 +564 @@
        endif
       end if    ! (doubleq)
+
+
+c     Scavenging of dust particles by H2O clouds:
+c     ------------------------------------------
+c     Initialize the two tracers used for the CCNs
+      if (water.AND.doubleq.AND.scavenging) then
+        radius(igcm_ccn_mass) = radius(igcm_dust_mass)
+        alpha_lift(igcm_ccn_mass) = 1e-30
+        alpha_devil(igcm_ccn_mass) = 1e-30
+        rho_q(igcm_ccn_mass) = rho_dust
+
+        radius(igcm_ccn_number) = radius(igcm_ccn_mass)
+        alpha_lift(igcm_ccn_number) = alpha_lift(igcm_ccn_mass)
+        alpha_devil(igcm_ccn_number) = alpha_devil(igcm_ccn_mass)
+        rho_q(igcm_ccn_number) = rho_q(igcm_ccn_mass)
+      endif ! of if (water.AND.doubleq.AND.scavenging)
 
 c     Submicron dust mode:
@@ -670 +701 @@
        endif
 
+       if (scavenging) then
+       ! verify that we indeed have ccn_mass and ccn_number tracers
+         if (igcm_ccn_mass.eq.0) then
+           write(*,*) "initracer: error !!"
+           write(*,*) "  cannot use scavenging option without ",
+     &                "a ccn_mass tracer !"
+           stop
+         endif
+         if (igcm_ccn_number.eq.0) then
+           write(*,*) "initracer: error !!"
+           write(*,*) "  cannot use scavenging option without ",
+     &                "a ccn_number tracer !"
+           stop
+         endif
+       endif ! of if (scavenging)
+
        if (photochem .or. callthermos) then
        ! verify that we indeed have the chemistry tracers