Changeset 433 for LMDZ.3.3/branches/rel-LF/libf/phylmd/cv3_routines.F

Timestamp:

Dec 19, 2002, 5:46:39 PM (22 years ago)

Author:

lmdzadmin

Message:

Convergence avec la version de Ionela dec 2002

YOMCST.? : suppression RI0 (IM)
albedo.F : facteur 1.2 sur le nouveau calcul (IM)
clesphys.h : rajout de différentes ctes (concentration des gaz) (IM)
clmain.F : separation des flux LW, SW (JLD)

remplace qsurf par yqsol (IM)

conf_phys.F90 : rajout de différentes ctes (gaz + orbite) (IM)
convect3.F : DPINV+SIGD*0.5*(EVAP(1)+EVAP(2)) (SBL)
cv3_routines.F:
cvparam3.h : compatibilite avec conema3 TEMPORAIRE (FH)
phyetat0.F : lecture de co2_ppm et solaire pour tests de coherence
phyredem.F : co2_ppm et solaire passé en common
physiq.F : separation flux LW, SW

rajout diagnostiques (slp, w500)
suppression iflag_con = 4
clwcon0=qcondc (FH)
position dU "ENDIF ! ok_cvl"

radlwsw.F : passage des concentrations gaz dans un common (IM)

PEMIS(i) = 1.0 (JLD pour cohérence ORCHIDEE)

stdlevvar.F90 :
suphec.F : suppression init. des ctes orbitales (IM)

nouvelles E/S (ini_hist..., write_hist...)

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/cv3_routines.F (modified) (5 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/cv3_routines.F

@@ -26 +26 @@
 
 #include "cvparam3.h"
+#include "conema3.h"
 
       integer nd
@@ -47 +48 @@
       pbcrit = 150.0
       ptcrit = 500.0
-      epmax  = 0.993
+cIM cf. FH     epmax  = 0.993
 
       omtrain = 45.0 ! used also for snow (no disctinction rain/snow)
@@ -864 +865 @@
 #include "cvthermo.h"
 #include "cvparam3.h"
+#include "conema3.h"
 
 c inputs:
@@ -2128 +2130 @@
 #include "cvparam3.h"
 #include "cvflag.h"
+#include "conema3.h"
 
 c inputs:
@@ -2936 +2939 @@
      :         *rrd*tvp(il,i)/p(il,i)/100./delta            ! cld
           siga(il,i) = min(siga(il,i),1.0)                  ! cld
+cIM cf. FH
+         if (iflag_clw.eq.0) then
           qcondc(il,i)=siga(il,i)*clw(il,i)*(1.-ep(il,i))   ! cld
      :           + (1.-siga(il,i))*qcond(il,i)              ! cld
+         else if (iflag_clw.eq.1) then
+          qcondc(il,i)=qcond(il,i)              ! cld
+         endif
+
         enddo                                               ! cld
        enddo                                                ! cld