Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_wake_ini.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/lmdz_wake_ini.F90 (modified) (1 diff)

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

@@ -103 +103 @@
 
   USE lmdz_ioipsl_getin_p, ONLY: getin_p
-  real eps
-  integer, intent(in) :: prt_lev
-  real, intent(in) :: rg_in,rd_in,rv_in
+  REAL eps
+  INTEGER, INTENT(IN) :: prt_lev
+  REAL, INTENT(IN) :: rg_in,rd_in,rv_in
 
   smallestreal=tiny(smallestreal)