Changeset 412 for LMDZ.3.3/branches/rel-LF/libf

Timestamp:

Oct 15, 2002, 5:11:32 PM (22 years ago)

Author:

lmdzadmin

Message:

Rajout des flux shortwave pour l'albedo
IM/LF

File:

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

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

@@ -5 +5 @@
      .                  topsw,toplw,solsw,sollw,
      .                  sollwdown,
-     .                  topsw0,toplw0,solsw0,sollw0)
+     .                  topsw0,toplw0,solsw0,sollw0,
+     .                  ZFSUP,ZFSDN,ZFSUP0,ZFSDN0)
       IMPLICIT none
 c======================================================================
@@ -31 +32 @@
 c radsol---output-R- bilan radiatif net au sol (W/m**2) (+ vers le bas)
 c albpla---output-R- albedo planetaire (entre 0 et 1)
-c topsw----output-R- ray. solaire absorbe au sommet de l'atm.
-c toplw----output-R- ray. IR emis au sommet de l'atmosphere
-c solsw----output-R- ray. solaire net absorbe a la surface
-c sollw----output-R- ray. IR net emis par la surface
+c topsw----output-R- flux solaire net au sommet de l'atm.
+c toplw----output-R- ray. IR montant au sommet de l'atmosphere
+c solsw----output-R- flux solaire net a la surface
+c sollw----output-R- ray. IR montant a la surface
 c======================================================================
 #include "dimensions.h"
@@ -55 +56 @@
       real topsw0(klon), toplw0(klon), solsw0(klon), sollw0(klon)
       real sollwdown(klon)
+cccIM 
+      REAL*8 ZFSUP(KDLON,KFLEV+1)
+      REAL*8 ZFSDN(KDLON,KFLEV+1)
+      REAL*8 ZFSUP0(KDLON,KFLEV+1)
+      REAL*8 ZFSDN0(KDLON,KFLEV+1)
 c
       REAL*8 zx_alpha1, zx_alpha2
@@ -200 +206 @@
      S        PCLDSW, PTAU, POMEGA, PCG,
      S        zheat, zheat0,
-     S        zalbpla,ztopsw,zsolsw,ztopsw0,zsolsw0)
+     S        zalbpla,ztopsw,zsolsw,ztopsw0,zsolsw0,
+     S        ZFSUP,ZFSDN,ZFSUP0,ZFSDN0)
 c======================================================================
       DO i = 1, kdlon
@@ -242 +249 @@
      S              PCLDSW, PTAU, POMEGA, PCG,
      S              PHEAT, PHEAT0,
-     S              PALBPLA,PTOPSW,PSOLSW,PTOPSW0,PSOLSW0)
+     S              PALBPLA,PTOPSW,PSOLSW,PTOPSW0,PSOLSW0,
+     S              ZFSUP,ZFSDN,ZFSUP0,ZFSDN0)
       IMPLICIT none
 
@@ -336 +344 @@
       REAL*8 ZFSUP0(KDLON,KFLEV+1)
       REAL*8 ZFSDN0(KDLON,KFLEV+1)
-      SAVE ZFSUP, ZFSDN, ZFSUP0, ZFSDN0
 C
       INTEGER inu, jl, jk, i, k, kpl1