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

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/ocean_forced_mod.F90 (modified) (6 diffs)

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

@@ -40 +40 @@
     USE indice_sol_mod
     USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
-    use config_ocean_skin_m, ONLY: activate_ocean_skin
+    USE config_ocean_skin_m, ONLY: activate_ocean_skin
 #ifdef ISO
     USE infotrac_phy, ONLY: ntiso,niso
@@ -69 +69 @@
     REAL, DIMENSION(klon), INTENT(IN)        :: u1, v1, gustiness
     REAL, DIMENSION(klon), INTENT(IN)        :: tsurf_in
-    real, intent(in):: rhoa(:) ! (knon) density of moist air  (kg / m3)
+    REAL, INTENT(IN):: rhoa(:) ! (knon) density of moist air  (kg / m3)
 
 #ifdef ISO
@@ -94 +94 @@
     REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l
-    REAL, intent(out):: sens_prec_liq(:) ! (knon)
+    REAL, INTENT(OUT):: sens_prec_liq(:) ! (knon)
 
 #ifdef ISO     
@@ -142 +142 @@
 !****************************************************************************************
 !--sb:
-!!jyg    if (knon.eq.1) then ! single-column model
-    if (klon_glo==1) then ! single-column model
+!!jyg    if (knon.EQ.1) then ! single-column model
+    IF (klon_glo==1) then ! single-column model
       ! EV: now surface Tin flux_arp.h
       !CALL read_tsurf1d(knon,tsurf_lim) ! new
@@ -195 +195 @@
          tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
          sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol, rhoa)
-    if (activate_ocean_skin == 2) tsurf_new = tsurf_lim
+    IF (activate_ocean_skin == 2) tsurf_new = tsurf_lim
 
     do j = 1, knon
@@ -297 +297 @@
     REAL, DIMENSION(klon), INTENT(IN)    :: ps
     REAL, DIMENSION(klon), INTENT(IN)    :: u1, v1, gustiness
-    real, intent(in):: rhoa(:) ! (knon) density of moist air  (kg / m3)
+    REAL, INTENT(IN):: rhoa(:) ! (knon) density of moist air  (kg / m3)
 #ifdef ISO
     REAL, DIMENSION(ntiso,klon), INTENT(IN) :: xtprecip_rain, xtprecip_snow