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

Put dimensions.h and paramet.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cloud_overlap_decorr_len.F90

    r4773 r5159  
    44
    55! CLOUD_OVERLAP_DECORR_LEN
    6 !
     6
    77! (C) Copyright 2016- ECMWF.
    8 !
     8
    99! This software is licensed under the terms of the Apache Licence Version 2.0
    1010! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    11 !
     11
    1212! In applying this licence, ECMWF does not waive the privileges and immunities
    1313! granted to it by virtue of its status as an intergovernmental organisation
    1414! nor does it submit to any jurisdiction.
    15 !
     15
    1616! PURPOSE
    1717! -------
    1818!   Calculate the cloud overlap decorrelation length as a function of
    1919!   latitude for use in the radiation scheme
    20 !
     20
    2121! INTERFACE
    2222! ---------
    2323!   CLOUD_OVERLAP_DECORR_LEN is called from RADLSWR and RADIATION_SCHEME
    24 !
     24
    2525! AUTHOR
    2626! ------
    2727!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
    2828!   Original: 2016-02-16
    29 !
     29
    3030! MODIFICATIONS
    3131! -------------
    32 !
     32
    3333! -------------------------------------------------------------------
    3434

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/cos_sza.F90

    r4773 r5159  
    22
    33!**** *COS_SZA*   
    4 !
     4
    55! (C) Copyright 2015- ECMWF.
    6 !
     6
    77! This software is licensed under the terms of the Apache Licence Version 2.0
    88! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    9 !
     9
    1010! In applying this licence, ECMWF does not waive the privileges and immunities
    1111! granted to it by virtue of its status as an intergovernmental organisation
    1212! nor does it submit to any jurisdiction.
    13 !
     13
    1414!     Purpose.
    1515!     --------
    … …  
    6464!     ----------
    6565!        ECMWF Research Department documentation of the IFS
    66 !
     66
    6767!        See also: Zhou, L., M. Zhang, Q. Bao, and Y. Liu (2015), On
    6868!        the incident solar radiation in CMIP5

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/easy_netcdf_read_mpi.F90

    r4773 r5159  
    11! easy_netcdf_read_mpi.f90 - Read netcdf file on one task and share with other tasks
    2 !
     2
    33! (C) Copyright 2017- ECMWF.
    4 !
     4
    55! This software is licensed under the terms of the Apache Licence Version 2.0
    66! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    7 !
     7
    88! In applying this licence, ECMWF does not waive the privileges and immunities
    99! granted to it by virtue of its status as an intergovernmental organisation
    1010! nor does it submit to any jurisdiction.
    11 !
     11
    1212! Author:  Robin Hogan
    1313! Email:   r.j.hogan@ecmwf.int

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttim.func.h

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

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h

    r5158 r5159  
    11! (C) Copyright 1988- 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/ifs/ice_effective_radius.F90

    r4773 r5159  
    55
    66! ICE_EFFECTIVE_RADIUS
    7 !
     7
    88! (C) Copyright 2016- ECMWF.
    9 !
     9
    1010! This software is licensed under the terms of the Apache Licence Version 2.0
    1111! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    12 !
     12
    1313! In applying this licence, ECMWF does not waive the privileges and immunities
    1414! granted to it by virtue of its status as an intergovernmental organisation
    1515! nor does it submit to any jurisdiction.
    16 !
     16
    1717! PURPOSE
    1818! -------
    1919!   Calculate effective radius of ice clouds
    20 !
     20
    2121! AUTHOR
    2222! ------
    2323!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
    2424!   Original: 2016-02-24
    25 !
     25
    2626! MODIFICATIONS
    2727! -------------
    28 !
    29 !
     28
     29
    3030! -------------------------------------------------------------------
    3131

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/liquid_effective_radius.F90

    r4773 r5159  
    66
    77! LIQUID_EFFECTIVE_RADIUS
    8 !
     8
    99! (C) Copyright 2015- ECMWF.
    10 !
     10
    1111! This software is licensed under the terms of the Apache Licence Version 2.0
    1212! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    13 !
     13
    1414! In applying this licence, ECMWF does not waive the privileges and immunities
    1515! granted to it by virtue of its status as an intergovernmental organisation
    1616! nor does it submit to any jurisdiction.
    17 !
     17
    1818! PURPOSE
    1919! -------
    2020!   Calculate effective radius of liquid clouds
    21 !
     21
    2222! AUTHOR
    2323! ------
    2424!   Robin Hogan, ECMWF (using code extracted from radlswr.F90)
    2525!   Original: 2015-09-24
    26 !
     26
    2727! MODIFICATIONS
    2828! -------------
    29 !
    30 !
     29
     30
    3131! -------------------------------------------------------------------
    3232

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_scheme.F90

    r4773 r5159  
    1919
    2020! RADIATION_SCHEME - Interface to modular radiation scheme
    21 !
     21
    2222! (C) Copyright 2015- ECMWF.
    23 !
     23
    2424! This software is licensed under the terms of the Apache Licence Version 2.0
    2525! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    26 !
     26
    2727! In applying this licence, ECMWF does not waive the privileges and immunities
    2828! granted to it by virtue of its status as an intergovernmental organisation
    2929! nor does it submit to any jurisdiction.
    30 !
     30
    3131! PURPOSE
    3232! -------
    … …  
    3636!   it to the radiation scheme.  It returns net fluxes and surface
    3737!   flux components needed by the rest of the model.
    38 !
     38
    3939!   Lower case is used for variables and types taken from the
    4040!   radiation library
    41 !
     41
    4242! INTERFACE
    4343! ---------
    … …  
    4545!    SETUP_RADIATION_SCHEME routine (in the RADIATION_SETUP module)
    4646!    populates the YRADIATION object, and should have been run first.
    47 !
     47
    4848! AUTHOR
    4949! ------
    5050!   Robin Hogan, ECMWF
    5151!   Original: 2015-09-16
    52 !
     52
    5353! MODIFICATIONS
    5454! -------------
    … …  
    6262!   2019-02-04  R. Hogan  Pass out surface longwave downwelling in each emissivity interval
    6363!   2019-02-07  R. Hogan  SPARTACUS cloud size from PARAM_CLOUD_EFFECTIVE_SEPARATION_ETA
    64 !
     64
    6565!-----------------------------------------------------------------------
    6666
    … …  
    293293! differences between the effective temperature of this lowest layer
    294294! and the true value in the model.
    295 !
     295
    296296! We may approximate the temperature profile in the lowest model level
    297297! as piecewise linear between the top of the layer T[k-1/2], the

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/radiation_setup.F90

    r4773 r5159  
    22
    33! RADIATION_SETUP - Setting up modular radiation scheme
    4 !
     4
    55! (C) Copyright 2015- ECMWF.
    6 !
     6
    77! This software is licensed under the terms of the Apache Licence Version 2.0
    88! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    9 !
     9
    1010! In applying this licence, ECMWF does not waive the privileges and immunities
    1111! granted to it by virtue of its status as an intergovernmental organisation
    1212! nor does it submit to any jurisdiction.
    13 !
     13
    1414! PURPOSE
    1515! -------
    … …  
    1919!   radiation scheme, plus a small number of additional variables
    2020!   needed for its implemenation in the IFS.
    21 !
     21
    2222! INTERFACE
    2323! ---------
    … …  
    2525!   scheme is actually run using the RADIATION_SCHEME routine (not in
    2626!   this module).
    27 !
     27
    2828! AUTHOR
    2929! ------
    3030!   Robin Hogan, ECMWF
    3131!   Original: 2015-09-16
    32 !
     32
    3333! MODIFICATIONS
    3434! -------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/satur.F90

    r4876 r5159  
    11! (C) Copyright 1996- 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/ifs/yoe_spectral_planck.F90

    r4773 r5159  
    11! (C) Copyright 2019- 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
    … …  
    1111
    1212! YOE_SPECTRAL_PLANCK
    13 !
     13
    1414! PURPOSE
    1515! -------
    … …  
    1919!   spectral emissivity on the high-resolution model grid (rather than
    2020!   the lower resolution grid seen by the radiation scheme).
    21 !
     21
    2222! INTERFACE
    2323! ---------
    … …  
    2626!   temperatures at which the Planck function is required. FREE then
    2727!   deallocates memory.
    28 !
     28
    2929! AUTHOR
    3030! ------
    3131!   Robin Hogan, ECMWF
    3232!   Original: 2019-02-04
    33 !
     33
    3434! MODIFICATIONS
    3535! -------------
    … …  
    214214          ENDIF
    215215          ! Planck's law
    216           !
     216
    217217          ! The exponential term is computed in double precision to avoid
    218218          ! overflow. The final result should still be in the range of a single

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoecld.F90

    r4773 r5159  
    11! (C) Copyright 1989- 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/ifs/yoephy.F90

    r4853 r5159  
    11! (C) Copyright 1991- 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/ifs/yoerad.F90

    r4773 r5159  
    139139!   the following only available in newer modular radiation scheme:
    140140!          4 = SW/LW SOCRATES scheme
    141 !
     141
    142142! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE
    143143! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoerdu.F90

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

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/yoethf.F90

    r4876 r5159  
    11! (C) Copyright 1988- 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/ifs/yomrip.F90

    r4773 r5159  
    11! (C) Copyright 1989- ECMWF.
    22! (C) Copyright 1989- Meteo-France.
    3 !
     3
    44! This software is licensed under the terms of the Apache Licence Version 2.0
    55! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    6 !
     6
    77! In applying this licence, ECMWF does not waive the privileges and immunities
    88! granted to it by virtue of its status as an intergovernmental organisation
    … …  
    158158! REAL(KIND=JPRB) :: RCOVSRLU
    159159! REAL(KIND=JPRB) :: RSIVSRLU
    160 !
     160
    161161! !! things put here because their values are time-interpolated, i.e. non-constant
    162162! ! defined in YOEOZOC
Note: See TracChangeset for help on using the changeset viewer.