Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_fluxs_mod.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

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

LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_fluxs_mod.F90

@@ -18 +18 @@
     USE dimphy, ONLY: klon
     USE indice_sol_mod
-    use sens_heat_rain_m, ONLY: sens_heat_rain
+    USE sens_heat_rain_m, ONLY: sens_heat_rain
 
     INCLUDE "clesphys.h"
@@ -77 +77 @@
     REAL,                  INTENT(IN)    :: fqsat ! correction factor on qsat (generally 0.98 over salty water, 1 everywhere else)
 
-    real, intent(in), optional:: rhoa(:) ! (knon)
+    REAL, INTENT(IN), optional:: rhoa(:) ! (knon)
     ! density of moist air  (kg / m3)
 
@@ -89 +89 @@
     REAL, DIMENSION(klon), INTENT(OUT)   :: tsurf_new, evap, fluxsens, fluxlat
     REAL, DIMENSION(klon), INTENT(OUT)   :: dflux_s, dflux_l
-    REAL, intent(out), OPTIONAL:: sens_prec_liq(:), sens_prec_sol(:) ! (knon)
+    REAL, INTENT(OUT), OPTIONAL:: sens_prec_liq(:), sens_prec_sol(:) ! (knon)
     REAL, DIMENSION(klon), OPTIONAL      :: lat_prec_liq, lat_prec_sol
 
@@ -142 +142 @@
     dflux_s = 0.
     dflux_l = 0.
-    if (PRESENT(lat_prec_liq)) lat_prec_liq = 0.
-    if (PRESENT(lat_prec_sol)) lat_prec_sol = 0.
+    IF (PRESENT(lat_prec_liq)) lat_prec_liq = 0.
+    IF (PRESENT(lat_prec_sol)) lat_prec_sol = 0.
 
 ! zx_qs = qsat en kg/kg
@@ -258 +258 @@
 
 ! calcul de l'enthalpie des precipitations liquides et solides
-       if (PRESENT(sens_prec_liq)) sens_prec_liq(i) &
+       IF (PRESENT(sens_prec_liq)) sens_prec_liq(i) &
             = - sens_heat_rain(precip_rain(i) + precip_snow(i), t1lay(i), &
             q1lay(i), rhoa(i), rlvtt, tsurf_new(i), ps(i))
-       if (PRESENT(sens_prec_sol)) sens_prec_sol(i) = 0.
+       IF (PRESENT(sens_prec_sol)) sens_prec_sol(i) = 0.
        ! On calcule par rapport a T=0
        !! sens_prec_liq(i) = rcw * (t1lay(i) - RTT) * precip_rain(i)
        !! sens_prec_sol(i) = rcs * (t1lay(i) - RTT) * precip_snow(i)
 
-       if (PRESENT(lat_prec_liq))                    &
+       IF (PRESENT(lat_prec_liq))                    &
          lat_prec_liq(i) =  precip_rain(i) * (RLVTT - RLVTT) 
-       if (PRESENT(lat_prec_sol))                    &
+       IF (PRESENT(lat_prec_sol))                    &
          lat_prec_sol(i) = precip_snow(i) * (RLSTT - RLVTT)
     ENDDO