Changeset 2073 for LMDZ5/branches/testing/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jun 25, 2014, 5:43:19 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2054:2070 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/surf_ocean_mod.F90

@@ -138 +138 @@
 
 !****************************************************************************************
+! fcodron: compute lmt_bils  forced case (same as wfbils_oce / 1.-contfracatm)
+!****************************************************************************************
+    IF (type_ocean.NE.'slab') THEN
+        lmt_bils(:)=0.
+        DO i=1,knon
+           lmt_bils(knindex(i))=(swnet(i)+lwnet(i)+fluxsens(i)+fluxlat(i)) &
+           *pctsrf(knindex(i),is_oce)/(1.-zmasq(knindex(i))) 
+        END DO
+    END IF
+
+!****************************************************************************************
 ! Calculate albedo
 !