Changeset 433 for LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h

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/YOMCST.h (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/YOMCST.h

@@ -8 +8 @@
       REAL RA,RG,R1SA
 ! A1.3 Radiation
-      REAL RSIGMA,RI0
+!     REAL RSIGMA,RI0
+      REAL RSIGMA
 ! A1.4 Thermodynamic gas phase
       REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
@@ -20 +21 @@
       REAL RALPD,RBETD,RGAMD
 !
+!    S      ,RSIGMA,RI0
       COMMON/YOMCST/RPI   ,RCLUM ,RHPLA ,RKBOL ,RNAVO
      S      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA
      s      ,R_ecc, R_peri, R_incl
      S      ,RA    ,RG    ,R1SA
-     S      ,RSIGMA,RI0
+     S      ,RSIGMA
      S      ,R     ,RMD   ,RMV   ,RD    ,RV    ,RCPD
      S      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV