Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (7 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/abor1.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/mpl_module.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

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

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation
    … …  
    99
    1010MODULE PARKIND1
    11 !
     11
    1212!     *** Define usual kinds for strong typing ***
    13 !
     13
    1414IMPLICIT NONE
    1515PUBLIC
    1616SAVE
    17 !
     17
    1818!     Integer Kinds
    1919!     -------------
    20 !
     20
    2121INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
    2222INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
    … …  
    3232#endif
    3333
    34 !
     34
    3535!     Real Kinds
    3636!     ----------
    37 !
     37
    3838INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
    3939INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomcst.F90

    r4853 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomdyncore.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomlun_ifsaux.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yommp0.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsaux/yomtag.F90

    r4773 r5159  
    11! (C) Copyright 2014- ECMWF.
    2 !
     2
    33! This software is licensed under the terms of the Apache Licence Version 2.0
    44! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    5 !
     5
    66! In applying this licence, ECMWF does not waive the privileges and immunities
    77! granted to it by virtue of its status as an intergovernmental organisation
Note: See TracChangeset for help on using the changeset viewer.