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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/yamada_ini_mod.F90 (modified) (2 diffs)

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

@@ -12 +12 @@
   REAL :: viscom,viscoh,pbl_lmixmin_alpha
   !$OMP THREADPRIVATE( hboville,viscom,viscoh,pbl_lmixmin_alpha)
-  real :: ric, yun,ydeux,lmixmin,b1,kap,kapb
+  REAL :: ric, yun,ydeux,lmixmin,b1,kap,kapb
   !$OMP THREADPRIVATE(ric, yun,ydeux,lmixmin,b1,kap,kapb)
-  integer :: iflag_vdif_q2
+  INTEGER :: iflag_vdif_q2
   !$OMP THREADPRIVATE(iflag_vdif_q2)
 
   real, dimension(:), allocatable, save :: l0
   !$OMP THREADPRIVATE(l0)
-  integer :: lunout,prt_level
+  INTEGER :: lunout,prt_level
   !$OMP THREADPRIVATE(lunout,prt_level)
 
@@ -31 +31 @@
 ! local
   integer, intent(in) :: klon,lunout_in,prt_level_in
-  real :: ric0
+  REAL :: ric0
   real frif,falpha,fsm,ri