Changeset 486 for LMDZ.3.3/branches/rel-LF/libf/phylmd/albedo.F

Timestamp:

Dec 15, 2003, 6:50:41 PM (20 years ago)

Author:

lmdzadmin

Message:

Phasage avec la version de Ionela
IM/LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/albedo.F (modified) (1 diff)

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

@@ -182 +182 @@
       END
 c========================================================================
-      SUBROUTINE albsno(veget, agesno, alb_neig)
-      IMPLICIT none
-c
-#include "dimensions.h"
-#include "dimphy.h"
-      INTEGER nvm
-      PARAMETER (nvm=8)
-      REAL veget(klon,nvm)
-      REAL alb_neig(klon)
-      REAL agesno(klon)
-c
-      INTEGER i, nv
-c
-      REAL init(nvm), decay(nvm), as
-      SAVE init, decay
-      DATA init /0.55, 0.14, 0.18, 0.29, 0.15, 0.15, 0.14, 0./
-      DATA decay/0.30, 0.67, 0.63, 0.45, 0.40, 0.14, 0.06, 1./
-c
-      DO i = 1, klon
-         alb_neig(i) = 0.0
-      ENDDO
-      DO nv = 1, nvm
-         DO i = 1, klon
-            as = init(nv)+decay(nv)*EXP(-agesno(i)/5.)
-            alb_neig(i) = alb_neig(i) + veget(i,nv)*as
-         ENDDO
-      ENDDO
-c
-      RETURN
-      END