Changeset 491 for LMDZ.3.3/branches


Ignore:
Timestamp:
Feb 12, 2004, 2:42:50 PM (21 years ago)
Author:
lmdzadmin
Message:

Correction bug sur fmagic SD
LF

File:
1 edited

Legend:

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

    r489 r491  
    175175cIM cf. PB      albedo(i) = 0.058/(rmu0(i) + 0.30)
    176176c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.5
    177          albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.2
     177c        albedo(i) = 0.058/(rmu0(i) + 0.30) * 1.2
     178         albedo(i) = fmagic*0.058/(rmu0(i) + 0.30) * 1.2
    178179         albedo(i) = MAX(MIN(albedo(i),0.60),0.04)
    179180      ENDDO
Note: See TracChangeset for help on using the changeset viewer.