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

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 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/calcul_fluxs_mod.F90 (modified) (3 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"
@@ -124 +124 @@
 !!$  WRITE(*,*)'test calcul_flux, surface ', nisurf
 !!PB test
-!!$    if (nisurf == is_oce) then
+!!$    if (nisurf == is_oce) THEN
 !!$      snow = 0.
 !!$      qsol = max_eau_sol
@@ -244 +244 @@
 ! en cas de fonte de neige
 
-!    if (fonte_neige) then
+!    if (fonte_neige) THEN
 !      bilan_f = radsol(i) + fluxsens(i) - (zx_sl(i) * evap (i)) - &
 !     &          dif_grnd(i) * (tsurf_new(i) - t_grnd) - &