Changeset 2681 for LMDZ5/trunk/libf/phylmd

Timestamp:

Oct 21, 2016, 8:00:35 PM (8 years ago)

Author:

fhourdin

Message:

Rustine sur la rustine

File:

• LMDZ5/trunk/libf/phylmd/ocean_albedo.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/ocean_albedo.F90

@@ -185 +185 @@
   ZUE=0.676               ! equivalent u_unif for diffuse incidence
   ZUE2=SQRT(1.0-(1.0-ZUE**2)/ZREFM**2)
-print*,'knon',knon
-stop
   ZRR0(1:knon)=0.50*(((ZUE2-ZREFM*ZUE)/(ZUE2+ZREFM*ZUE))**2 +((ZUE-ZREFM*ZUE2)/(ZUE+ZREFM*ZUE2))**2)
   ZRRR(1:knon)=0.50*(((ZUE2-1.34*ZUE)/(ZUE2+1.34*ZUE))**2 +((ZUE-1.34*ZUE2)/(ZUE+1.34*ZUE2))**2)