Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (7 weeks ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/parkind1.F90

@@ -1 +1 @@
 ! (C) Copyright 2014- ECMWF.
-!
+
 ! This software is licensed under the terms of the Apache Licence Version 2.0
 ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
-!
+
 ! In applying this licence, ECMWF does not waive the privileges and immunities
 ! granted to it by virtue of its status as an intergovernmental organisation
@@ -9 +9 @@
 
 MODULE PARKIND1
-!
+
 !     *** Define usual kinds for strong typing ***
-!
+
 IMPLICIT NONE
 PUBLIC
 SAVE
-!
+
 !     Integer Kinds
 !     -------------
-!
+
 INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
 INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
@@ -32 +32 @@
 #endif
 
-!
+
 !     Real Kinds
 !     ----------
-!
+
 INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
 INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)