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

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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_lscp_ini.F90 (modified) (1 diff)

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

@@ -262 +262 @@
    REAL, INTENT(IN)      :: RCPD_in, RLSTT_in, RLVTT_in, RLMLT_in
    REAL, INTENT(IN)      ::  RVTMP2_in, RTT_in, RD_in, RG_in, RV_in, RPI_in
-   character (len=20) :: modname='lscp_ini_mod'
-   character (len=80) :: abort_message
+   CHARACTER (LEN=20) :: modname='lscp_ini_mod'
+   CHARACTER (LEN=80) :: abort_message