Changeset 3323 for trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus

Timestamp:

May 7, 2024, 9:39:36 AM (8 months ago)

Author:

flefevre

Message:

1) revised cloud microphysical parameters (this changes the results)
2) the number of modes is passed as an argument to cloud routines (this does not change the results)
3) some cosmetics to chemparam_mod.F90 (this does not change the results)

Location:

trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus

Files:

• new_cloud_sedim.F (modified) (3 diffs)
• new_cloud_venus.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_sedim.F

@@ -1 @@
-      subroutine new_cloud_sedim(n_lon, n_lev, ptimestep,
+      subroutine new_cloud_sedim(nbr_mode, n_lon, n_lev, ptimestep,
      $                           pmidlay, pbndlay, pt, pq,
      $                           d_tr_chem, pdqsed,
@@ -23 +23 @@
       INTEGER n_lon                 ! number of horizontal grid points
       INTEGER n_lev                 ! number of atmospheric layers
+      integer nbr_mode
       REAL ptimestep                ! physics time step (s)
       REAL pmidlay(n_lon,n_lev)     ! pressure at middle layers (Pa)
@@ -56 +57 @@
       real,parameter :: molrad=2.2e-10   ! CO2
       
-c     Ratio radius shell model du mode 3
-c     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-c       Ce ratio correspond aux mesures effectuées par J. Cimino (1982), Icarus
-c     Fixer ce parametre a 0 revient a une gouttelette pure en liquide acide sulfurique
-c     ATTENTION ! DOIT ETRE COHERENT AVEC new_cloud_venus !
-      REAL, PARAMETER :: qrad = 0.97
       REAL :: qmass
 c       masse volumique du coeur (kg.m-3)

trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_venus.F

@@ -11 +11 @@
 !*
 !----------------------------------------------------------------------------
-      SUBROUTINE new_cloud_venus(
+      SUBROUTINE new_cloud_venus(nbr_mode,
      + nblev, nblon,
      + TT,PP,
@@ -22 +22 @@
 #include "YOMCST.h"
 
+      integer :: nbr_mode
       INTEGER, INTENT(IN) :: nblon  ! nombre de points horizontaux
       INTEGER, INTENT(IN) :: nblev  ! nombre de couches verticales
@@ -57 +58 @@
 
       INTEGER :: FLAG
-!----------------------------------------------------------------------------
-c     Ratio radius shell model du mode 3
-c     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-c       Ce ratio correspond aux mesures effectuées par J. Cimino (1982), Icarus
-c     Fixer ce parametre a 0 revient a une gouttelette pure en liquide acide sulfurique
-c     ATTENTION ! DOIT ETRE COHERENT AVEC new_cloud_sedim !
-      REAL, PARAMETER :: qrad = 0.97
+      
       REAL :: qmass
 c       masse volumique du coeur (kg.m-3)