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

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

@@ -133 +133 @@
     !END IF
 
-    if (year_len/=360) then
+    if (year_len/=360) THEN
       write (*, *) year_len
       CALL abort_physic("iniaqua", 'iniaqua: 360 day calendar is required !', 1)
@@ -227 +227 @@
 
     ! Si alb_ocean on calcule un albedo oceanique moyen
-    ! if (alb_ocean) then
+    ! if (alb_ocean) THEN
     ! Voir pourquoi on avait ca.
     ! CALL ini_alb_oce(phy_alb)
@@ -929 +929 @@
       END IF
 
-      if (type_profil==20) then
+      if (type_profil==20) THEN
         PRINT*, 'Profile SST 20'
         !     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K
@@ -938 +938 @@
       endif
 
-      if (type_profil==21) then
+      if (type_profil==21) THEN
         PRINT*, 'Profile SST 21'
         !     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K