Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.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/phyredem.F90 (modified) (5 diffs)

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

@@ -40 +40 @@
   USE ocean_slab_mod, ONLY: nslay, tslab, seaice, tice, fsic
   USE time_phylmdz_mod, ONLY: annee_ref, day_end, itau_phy, pdtphys
-  use config_ocean_skin_m, only: activate_ocean_skin
+  use config_ocean_skin_m, ONLY: activate_ocean_skin
   USE lmdz_abort_physic, ONLY: abort_physic
 
@@ -76 +76 @@
   ! Get variables which will be written to restart file from module 
   ! pbl_surface_mod
-  if (iflag_physiq <= 1) then
+  if (iflag_physiq <= 1) THEN
     CALL pbl_surface_final(fder, snow, qsurf, tsoil)
   endif
@@ -167 +167 @@
     CALL put_field_srf1(pass, "TS", "Temperature", ftsol(:, :))
 
-    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) then
+    IF (iflag_pbl>1 .AND. iflag_wake>=1  .AND. iflag_pbl_split >=1) THEN
       CALL put_field_srf1(pass, "DELTATS", &
               "w-x surface temperature difference", delta_tsurf(:, :))
@@ -274 +274 @@
     ! DEB TKE PBL !
 
-    IF (iflag_pbl>1) then
+    IF (iflag_pbl>1) THEN
       CALL put_field_srf3(pass, "TKE", "Energ. Cineti. Turb.", &
               pbl_tke(:, :, :))
@@ -379 +379 @@
             "tendency on zonal wind due to acama gravity waves", du_gwd_front)
 
-    if (activate_ocean_skin >= 1) then
-      if (activate_ocean_skin == 2 .and. type_ocean == 'couple') then
+    if (activate_ocean_skin >= 1) THEN
+      if (activate_ocean_skin == 2 .and. type_ocean == 'couple') THEN
         CALL put_field(pass, "delta_sal", &
                 "ocean-air interface salinity minus bulk salinity", delta_sal)