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

Timestamp:

Mar 24, 2004, 2:10:56 PM (21 years ago)

Author:

lmdzadmin

Message:

Remplace fmagic*1.2 par fmagic dans alboc_cd
IM

File:

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

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

@@ -22 +22 @@
 ccc      PARAMETER (fmagic=0.7)
 cccIM => a remplacer  
-        PARAMETER (fmagic=1.2)
-c       PARAMETER (fmagic=1.1)
+        PARAMETER (fmagic=1.32)
 c       PARAMETER (fmagic=1.0)
 c       PARAMETER (fmagic=0.7)
@@ -99 +98 @@
 c     alb = 0.058/(rmu + 0.30) * 1.5
       alb = 0.058/(rmu + 0.30) * 1.2
+c     alb = 0.058/(rmu + 0.30) * 1.3
       srmu = rmu
       salb = alb * rmu
@@ -110 +110 @@
 c        alb = 0.058/(rmu + 0.30) * 1.5
          alb = 0.058/(rmu + 0.30) * 1.2
+c        alb = 0.058/(rmu + 0.30) * 1.3
          srmu = srmu + rmu * 2.0
          salb = salb + alb*rmu * 2.0
@@ -144 +145 @@
 ccc      PARAMETER (fmagic=0.7)
 cccIM => a remplacer  
-        PARAMETER (fmagic=1.2)
-c       PARAMETER (fmagic=1.1)
+        PARAMETER (fmagic=1.32)
 c       PARAMETER (fmagic=1.0)
 c       PARAMETER (fmagic=0.7) 
@@ -173 +173 @@
       DO i = 1, klon
          rmu0(i) = MAX(rmu0(i),0.0)
-cIM cf. PB      albedo(i) = 0.058/(rmu0(i) + 0.30)
-c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.5
-         albedo(i) = fmagic*0.058/(rmu0(i) + 0.30) * 1.2
+cIM:orig albedo(i) = 0.058/(rmu0(i) + 0.30)
+         albedo(i) = fmagic * 0.058/(rmu0(i) + 0.30)
          albedo(i) = MAX(MIN(albedo(i),0.60),0.04)
       ENDDO