Ignore:
Timestamp:
Mar 3, 2004, 3:57:18 PM (21 years ago)
Author:
lmdzadmin
Message:

onvergence avec LJ29
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r491 r493  
    2222ccc      PARAMETER (fmagic=0.7)
    2323cccIM => a remplacer 
    24         PARAMETER (fmagic=1.3)
     24        PARAMETER (fmagic=1.2)
    2525c       PARAMETER (fmagic=1.1)
    2626c       PARAMETER (fmagic=1.0)
    … …  
    144144ccc      PARAMETER (fmagic=0.7)
    145145cccIM => a remplacer 
    146         PARAMETER (fmagic=1.3)
     146        PARAMETER (fmagic=1.2)
    147147c       PARAMETER (fmagic=1.1)
    148148c       PARAMETER (fmagic=1.0)
    … …  
    175175cIM cf. PB      albedo(i) = 0.058/(rmu0(i) + 0.30)
    176176c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.5
    177 c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.2
    178177         albedo(i) = fmagic*0.058/(rmu0(i) + 0.30) * 1.2
    179178         albedo(i) = MAX(MIN(albedo(i),0.60),0.04)
Note: See TracChangeset for help on using the changeset viewer.