Changeset 1619 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 12, 2016, 4:56:14 PM (8 years ago)

Author:

emillour

Message:

Mars GCM:
Revert some defaults to values which should not have been changed with revision 1617.
EM

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• conf_phys.F (modified) (1 diff)
• updaterad.F90 (modified) (1 diff)

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

@@ -513 +513 @@
 ! supersat
          write(*,*)"Allow super-saturation of water vapor?"
-         supersat=.false. ! default value
+         supersat=.true. ! default value
          call getin("supersat",supersat)
          write(*,*)"supersat = ",supersat

trunk/LMDZ.MARS/libf/phymars/updaterad.F90

@@ -34 +34 @@
 
 real, parameter :: nccn_threshold  =  1.
-real, parameter :: qccn_threshold  =  1.e-30
-
-real, parameter :: r3ccnmin = 1.e-24    ! ie rccnmin = 10n m
-real, parameter :: rccnmin  = 1.e-8
-
-real, parameter :: r3ccnmax = 125.e-18  ! ie rccnmax  = 5 microns
-real, parameter :: rccnmax  = 5.e-6
+real, parameter :: qccn_threshold  =  1.e-20
+
+real, parameter :: r3ccnmin = 1.e-21    ! ie rccnmin = 0.1 microns
+real, parameter :: rccnmin  = 0.1e-6
+
+real, parameter :: r3ccnmax = 125.e-12  ! ie rccnmax  = 500 microns
+real, parameter :: rccnmax  = 500.e-6