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

Timestamp:

Feb 12, 2004, 2:42:50 PM (21 years ago)

Author:

lmdzadmin

Message:

Correction bug sur fmagic SD
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

@@ -175 +175 @@
 cIM cf. PB      albedo(i) = 0.058/(rmu0(i) + 0.30)
 c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.5
-         albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.2
+c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.2
+         albedo(i) = fmagic*0.058/(rmu0(i) + 0.30) * 1.2
          albedo(i) = MAX(MIN(albedo(i),0.60),0.04)
       ENDDO