Changeset 2057 for LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jun 16, 2014, 4:33:38 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Preparatory stuff to fix and improve the slab ocean model.
FC

File:

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

LMDZ5/trunk/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
 !