Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin

Files:

• bulk_flux_m.F90 (modified) (2 diffs)
• config_ocean_skin_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90

@@ -108 +108 @@
     if (Jwarm) then
        if (rain_effect) then
-          call Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
+          CALL Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
                tau_with_min, taur, hlb, rhoa, xlv, dtime, t_ocean_1, s1, rain, &
                q_pwp = fxp * rns - (hf + hlb + rnl + rf))
        else
-          call Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
+          CALL Near_Surface(al, t_subskin, s_subskin, ds_ns, dt_ns, &
                tau_with_min, taur, hlb, rhoa, xlv, dtime, t_ocean_1, s1, &
                rain = null_array, q_pwp = fxp * rns - (hf + hlb + rnl))
@@ -132 +132 @@
                * (1. - exp(- tkt / 8e-4))) ! equation 16 Ohlmann
           if (rain_effect) then
-             call Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
+             CALL Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
                   s_subskin, al, xlv, taur, rf, rain, &
                   qcol = rnl + hf + hlb - dels)
           else
-             call Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
+             CALL Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
                   s_subskin, al, xlv, taur, rf = null_array, &
                   rain = null_array, qcol = rnl + hf + hlb - dels)

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/config_ocean_skin_m.F90

@@ -42 +42 @@
 
 #ifdef IN_LMDZ
-    call getin_p("activate_ocean_skin", activate_ocean_skin)
-    call assert(activate_ocean_skin >= 0 .and. activate_ocean_skin <= 2, &
+    CALL getin_p("activate_ocean_skin", activate_ocean_skin)
+    CALL assert(activate_ocean_skin >= 0 .and. activate_ocean_skin <= 2, &
          "config_ocean_skin bad value of activate_ocean_skin")
     if (activate_ocean_skin >= 1) then
-       call getin_p("flag_ocean_skin", flag_ocean_skin)
-       call getin_p("depth_1", depth_1)
+       CALL getin_p("flag_ocean_skin", flag_ocean_skin)
+       CALL getin_p("depth_1", depth_1)
     end if
 #else