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

Timestamp:

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

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

@@ -17 +17 @@
   !$OMP THREADPRIVATE(iflag_vdif_q2)
 
-  real, dimension(:), allocatable, save :: l0
+  REAL, DIMENSION(:), ALLOCATABLE, save :: l0
   !$OMP THREADPRIVATE(l0)
   INTEGER :: lunout,prt_level
@@ -30 +30 @@
 
 ! local
-  integer, intent(in) :: klon,lunout_in,prt_level_in
+  INTEGER, INTENT(IN) :: klon,lunout_in,prt_level_in
   REAL :: ric0
-  real frif,falpha,fsm,ri
+  REAL frif,falpha,fsm,ri
 
   lunout=lunout_in