Changeset 3478 for LMDZ6/branches/Ocean_skin/libf

Timestamp:

Apr 16, 2019, 5:19:00 PM (6 years ago)

Author:

lguez

Message:

Polish.

File:

• LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90 (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90

@@ -325 +325 @@
             tau = sqrt(flux_u1(:knon)**2 + flux_v1(:knon)**2), rhoa = rhoa, &
             xlv = xlv, rf = rf, dtime = dtime, rns = swnet(:knon))
+       if (activate_ocean_skin == 2) tsurf_new(:knon) = t_int
     end if
     
-    if (activate_ocean_skin == 2) tsurf_new(:knon) = t_int
-
   END SUBROUTINE surf_ocean
   !****************************************************************************