Changeset 1629 for trunk/LMDZ.MARS/libf/phymars/updaterad.F90

Timestamp:

Nov 22, 2016, 12:08:15 PM (8 years ago)

Author:

jaudouard

Message:

Bug fix concerning riceco2 declaration and some cleaning concerning the CO2 clouds scheme

File:

• trunk/LMDZ.MARS/libf/phymars/updaterad.F90 (modified) (2 diffs)

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

@@ -23 +23 @@
 real, parameter :: ricemax  = 500.e-6 
 
-real, parameter :: r3iceco2min = 1.e-30
-real, parameter :: riceco2min  = 1.e-10
-
-real, parameter :: r3iceco2max = 125.e-12
-real, parameter :: riceco2max  = 500.e-6
+double precision, parameter :: r3iceco2min = 1.e-30
+double precision, parameter :: riceco2min  = 1.e-10
+
+double precision, parameter :: r3iceco2max = 125.e-12
+double precision, parameter :: riceco2max  = 500.e-6
 
 
@@ -112 +112 @@
 real, intent(in)  :: qice,qccn,nccn
 real, intent(in)  :: coeff         ! this coeff is tauscaling if microphy = T (possibly ccn_factor^-1 otherwise)
-real, intent(out) :: rice,rhocloudco2 ! rhocloud is needed for sedimentation and is also a good diagnostic variable
+real, intent(out) :: rhocloudco2 ! rhocloud is needed for sedimentation and is also a good diagnostic variable
+double precision, intent(out) :: rice
 real nccn_true,qccn_true ! nombre et masse de CCN