Changeset 1591 for trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F

Timestamp:

Aug 31, 2016, 4:31:29 PM (8 years ago)

Author:

slebonnois

Message:

SL: Mise a jour de la haute atmosphere, du transfert radiatif (solaire=Rainer Haus; IR: reglages de juin 2016), et implementation des variations de temperature potentielle dans la basse atmosphere (variation de la masse molaire moyenne)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F

@@ -54 +54 @@
       REAL   PPB(klev+1)
 
-      REAL   zfract, zrmu0
+      REAL   zfract, zrmu0,latdeg
 
       REAL   zheat(klev), zcool(klev)
@@ -273 +273 @@
 c---------
       znivs=zzlev(j,:)
+      latdeg=abs(latitude_deg(j))
+
 c      CALL SW_venus_ve_1Dglobave(zrmu0, zfract,   ! pour moy globale
 c      CALL SW_venus_ve(zrmu0, zfract,
@@ -279 +281 @@
 c     S        ztopsw,zsolsw,ZFSNET)
 
-c      CALL SW_venus_cl_1Dglobave(zrmu0, zfract,   ! pour moy globale
-c      CALL SW_venus_cl(zrmu0, zfract,
-c      CALL SW_venus_dc_1Dglobave(zrmu0, zfract,   ! pour moy globale
-      CALL SW_venus_dc(zrmu0, zfract,
+c      CALL SW_venus_cl_1Dglobave(zrmu0,zfract,   ! pour moy globale
+c      CALL SW_venus_cl(zrmu0,zfract,
+c      CALL SW_venus_dc_1Dglobave(zrmu0,zfract,   ! pour moy globale
+c      CALL SW_venus_dc(zrmu0,zfract,
+      CALL SW_venus_rh(zrmu0,zfract,latdeg,
+c      CALL SW_venus_rh_1Dglobave(zrmu0,zfract,   ! pour moy globale
      S        PPB,temp, 
      S        zheat,