Changeset 2681


Ignore:
Timestamp:
Oct 21, 2016, 8:00:35 PM (8 years ago)
Author:
fhourdin
Message:

Rustine sur la rustine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/ocean_albedo.F90

    r2680 r2681  
    185185  ZUE=0.676               ! equivalent u_unif for diffuse incidence
    186186  ZUE2=SQRT(1.0-(1.0-ZUE**2)/ZREFM**2)
    187 print*,'knon',knon
    188 stop
    189187  ZRR0(1:knon)=0.50*(((ZUE2-ZREFM*ZUE)/(ZUE2+ZREFM*ZUE))**2 +((ZUE-ZREFM*ZUE2)/(ZUE+ZREFM*ZUE2))**2)
    190188  ZRRR(1:knon)=0.50*(((ZUE2-1.34*ZUE)/(ZUE2+1.34*ZUE))**2 +((ZUE-1.34*ZUE2)/(ZUE+1.34*ZUE2))**2)
Note: See TracChangeset for help on using the changeset viewer.