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

Timestamp:

Aug 6, 2003, 4:50:49 PM (21 years ago)

Author:

lmdzadmin

Message:

Modifs sur les seuils (cdrag etc...), inclusion des diagnostics ISCCP par Ionela
LF

File:

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

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

@@ -7 +7 @@
      .                  sollwdown,
      .                  topsw0,toplw0,solsw0,sollw0,
-     .                  ZFSUP,ZFSDN,ZFSUP0,ZFSDN0)
+     .                  swdn0, swdn, swup0, swup    )
       IMPLICIT none
 c======================================================================
@@ -98 +98 @@
       REAL*8 zsolsw0(kdlon), zsollw0(kdlon)
       REAL*8 zznormcp
+      REAL swdn(klon,2),swdn0(klon,2),swup(klon,2),swup0(klon,2)
 c
 c-------------------------------------------
@@ -234 +235 @@
          sollw0(iof+i) = zsollw0(i)
          albpla(iof+i) = zalbpla(i)
+         swdn0 ( iof+i,1)   = ZFSDN0 ( i,1 )
+         swdn0 ( iof+i,2)   = ZFSDN0 ( i,kflev + 1 )
+         swdn  ( iof+i,1)   = ZFSDN  ( i,1 )
+         swdn  ( iof+i,2)   = ZFSDN  ( i,kflev + 1 )
+         swup0 ( iof+i,1)   = ZFSUP0 ( i,1 )
+         swup0 ( iof+i,2)   = ZFSUP0 ( i,kflev + 1 )
+         swup  ( iof+i,1)   = ZFSUP  ( i,1 )
+         swup  ( iof+i,2)   = ZFSUP  ( i,kflev + 1 )
       ENDDO
       DO k = 1, kflev