Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (3 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90 (modified) (5 diffs)

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

@@ -8 +8 @@
        u, t_ocean_1, s1, rain, hf, hlb, rnl, tau, rhoa, xlv, rf, dtime, rns)
 
-    use config_ocean_skin_m, only: jwarm, jcool, rain_effect
-    use Microlayer_m, only: Microlayer
-    use mom_flux_rain_m, only: mom_flux_rain
-    use Near_Surface_m, only: Near_Surface, depth
-    use therm_expans_m, only: therm_expans
+    use config_ocean_skin_m, ONLY: jwarm, jcool, rain_effect
+    use Microlayer_m, ONLY: Microlayer
+    use mom_flux_rain_m, ONLY: mom_flux_rain
+    use Near_Surface_m, ONLY: Near_Surface, depth
+    use therm_expans_m, ONLY: therm_expans
 
     real, intent(out):: tkt(:)
@@ -97 +97 @@
     !-------------------------------------------------------------------
 
-    if (rain_effect) then
+    if (rain_effect) THEN
        taur = mom_flux_rain(u, rain)
     else
@@ -106 +106 @@
     if (jwarm .or. jcool) tau_with_min = tau + tau_0 * (1. - exp(- tau_0 / tau))
 
-    if (Jwarm) then
-       if (rain_effect) then
+    if (Jwarm) THEN
+       if (rain_effect) THEN
           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, &
@@ -122 +122 @@
     end if
 
-    if (Jcool) then
+    if (Jcool) THEN
        ! First guess:
        tkt = 0.001
@@ -131 +131 @@
           dels = rns * (0.065 + 11. * tkt - 6.6e-5 / tkt &
                * (1. - exp(- tkt / 8e-4))) ! equation 16 Ohlmann
-          if (rain_effect) then
+          if (rain_effect) THEN
              CALL Microlayer(dter, dser, tkt, tks, hlb, tau_with_min, &
                   s_subskin, al, xlv, taur, rf, rain, &