Changeset 2680 for LMDZ5/trunk/libf/phylmd/ocean_albedo.F90

Timestamp:

Oct 21, 2016, 7:58:08 PM (8 years ago)

Author:

fhourdin

Message:

Rustine sur ocean_albedo pour le 1D
Correction sur la version conservative de Mellor et Yamada

File:

• LMDZ5/trunk/libf/phylmd/ocean_albedo.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/ocean_albedo.F90

@@ -80 +80 @@
 !--initialisations-------------
 !
+
+IF (knon==0) RETURN ! A verifier pourquoi on en a besoin...
+
 alb_dir_new(:,:) = 0. 
 alb_dif_new(:,:) = 0. 
@@ -182 +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)