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

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

@@ -5 +5 @@
 
   USE dimphy, ONLY: klev, klon
-  USE phys_local_var_mod, only: wprime
+  USE phys_local_var_mod, ONLY: wprime
   USE yamada_ini_mod, ONLY: new_yamada4, yamada4_num, hboville
   USE yamada_ini_mod, ONLY: prt_level, lunout, pbl_lmixmin_alpha, b1, kap, viscom, viscoh
@@ -231 +231 @@
         rif(ig, k) = rifc
       END IF
-      IF (new_yamada4) then
+      IF (new_yamada4) THEN
         alpha(ig, k) = max(falpha(rif(ig, k)), seuilalpha)
         sm(ig, k) = max(fsm(rif(ig, k)), seuilsm)
@@ -353 +353 @@
         END IF
         ! else ! iflag_pbl=9
-        ! if (aa(ig,k)*qpre.gt.0.9) then
+        ! if (aa(ig,k)*qpre.gt.0.9) THEN
         ! q2(ig,k)=(qpre*10.)**2
         ! else
@@ -859 +859 @@
   USE dimphy, ONLY: klev, klon
   USE yamada_ini_mod, ONLY: l0
-  USE phys_state_var_mod, only: zstd, zsig, zmea
-  USE phys_local_var_mod, only: l_mixmin, l_mix
+  USE phys_state_var_mod, ONLY: zstd, zsig, zmea
+  USE phys_local_var_mod, ONLY: l_mixmin, l_mix
   USE yamada_ini_mod, ONLY: kap, kapb
 
@@ -867 +867 @@
   ! zsig: pente moyenne de le maille
 
-  USE lmdz_geometry, only: cell_area
+  USE lmdz_geometry, ONLY: cell_area
   ! aire_cell: aire de la maille