Changeset 2740 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jan 3, 2017, 6:00:54 PM (8 years ago)

Author:

lguez

Message:

Added output of nudging coefficients for temperature and humidity,
along those for the wind.

File:

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

LMDZ5/trunk/libf/phylmd/ocean_albedo.F90

@@ -203 +203 @@
   ! Use Morel 91 formula to compute the diffuse
   ! reflectance below the surface
-  ZR00(1:knon)=(0.5*ZBW+ZBBP(1:knon))/(ZAW+ZAP(1:knon))*(0.6279-0.2227*ZHB(1:knon)-0.0513*ZHB(1:knon)**2 + (-0.3119+0.2465*ZHB(1:knon))*ZUE)
+  ZR00(1:knon) = (0.5*ZBW+ZBBP(1:knon)) / (ZAW+ZAP(1:knon)) &
+       * (0.6279-0.2227*ZHB(1:knon)-0.0513*ZHB(1:knon)**2 &
+       + (-0.3119+0.2465*ZHB(1:knon))*ZUE)
   ZRWDF(1:knon)=ZR00(1:knon)*(1.-ZR22(1:knon))*(1.-ZR11DF(1:knon))/(1.-ZR00(1:knon)*ZR22(1:knon))