Changeset 3432 for LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jan 18, 2019, 6:29:40 PM (6 years ago)

Author:

lguez

Message:

Move the call to config_ocean_skin out of !$OMP MASTER in procedure
conf_phys. Definition of jcool, jwarm and rain_effect must be done by
all threads.

Use keywords in call to bulk_flux in procedure surf_ocean, for clarity.

Define CPP_KEY IN_LMDZ in makelmdz_fcm. This could be useful for any
external code used with LMDZ.

Move the Ocean_skin folder out of the LMDZ tree. This is more
convenient and clearer because Ocean_skin stays under Git control for
now. So we do not declare a phylmd/Ocean_skin folder in
"bld.cfg". Instead, we use the option -ext_src of makelmdz_fcm.

File:

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

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

@@ -318 +318 @@
     s1 = 35.
     call bulk_flux(tkt, tks, taur, dter, dser, t_int, s_int, ds_ns, dt_ns, &
-         windsp(:knon), tsurf_new(:knon), s1, precip_tot, - fluxsens(:knon), &
-         - fluxlat(:knon), - lwnet(:knon), &
-         sqrt(flux_u1(:knon)**2 + flux_v1(:knon)**2), rhoa, xlv, rf, dtime, &
-         swnet(:knon))
+         u = windsp(:knon), t_ocean_1 = tsurf_new(:knon), s1 = s1, &
+         rain = precip_tot, hf = - fluxsens(:knon), hlb = - fluxlat(:knon), &
+         rnl = - lwnet(:knon), &
+         tau = sqrt(flux_u1(:knon)**2 + flux_v1(:knon)**2), rhoa = rhoa, &
+         xlv = xlv, rf = rf, dtime = dtime, rns = swnet(:knon))
 
   END SUBROUTINE surf_ocean