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

Put dimensions.h and paramet.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad
Files:
109 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/drhook/yomhook_dummy.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
    88! nor does it submit to any jurisdiction.
    9 !
     9
    1010! DR_HOOK is a profiling and debugging system for the IFS, and should
    1111! be called at the beginning and end of each subroutine. This is a

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver.F90

    r5158 r5159  
    11! ecrad_driver.F90 - Driver for offline ECRAD radiation scheme
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! ECRAD is the radiation scheme used in the ECMWF Integrated
    1616! Forecasting System in cycle 43R3 and later. Several solvers are

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_driver_config.F90

    r5158 r5159  
    11! ecrad_driver_config.F90 - Configure driver for offline ecRad radiation scheme
    2 !
     2
    33! (C) Copyright 2015- 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/driver/ecrad_driver_read_input.F90

    r5158 r5159  
    11! ecrad_driver_read_input.F90 - Read input structures from NetCDF file
    2 !
     2
    33! (C) Copyright 2018- 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/driver/ecrad_ifs_driver.F90

    r5158 r5159  
    11! ecrad_ifs_driver.F90 - Driver for offline ECRAD radiation scheme
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! ECRAD is the radiation scheme used in the ECMWF Integrated
    1616! Forecasting System in cycle 43R3 and later. Several solvers are
    … …  
    2626! 2) Name of a NetCDF file containing one or more atmospheric profiles
    2727! 3) Name of output NetCDF file
    28 !
     28
    2929! This version uses the infrastructure of the IFS, such as computing
    3030! effective radius and cloud overlap from latitude and other
    … …  
    3636! satisfying this requirement is test/ifs/ecrad_meridian.nc in the
    3737! ecRad package.
    38 !
     38
    3939! Note that the purpose of this file is simply to demonstrate the use
    4040! of the setup_radiation_scheme and radiation_scheme routines; all the

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ecrad_ifs_driver_blocked.F90

    r5158 r5159  
    11! ecrad_ifs_driver_blocked.F90 - Driver for offline ECRAD radiation scheme
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! ECRAD is the radiation scheme used in the ECMWF Integrated
    1616! Forecasting System in cycle 43R3 and later. Several solvers are
    … …  
    2626! 2) Name of a NetCDF file containing one or more atmospheric profiles
    2727! 3) Name of output NetCDF file
    28 !
     28
    2929! This version uses the infrastructure of the IFS, such as computing
    3030! effective radius and cloud overlap from latitude and other
    … …  
    3636! satisfying this requirement is test/ifs/ecrad_meridian.nc in the
    3737! ecRad package.
    38 !
     38
    3939! Note that the purpose of this file is simply to demonstrate the use
    4040! of the setup_radiation_scheme and radiation_scheme routines as well

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/ifs_blocking.F90

    r5158 r5159  
    11! ifs_blocking.F90 - Reshuffle ecRad data into an NPROMA-blocked data structure
    2 !
     2
    33! (C) Copyright 2022- 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:  Balthasar Reuter
    1313! Email:   balthasar.reuter@ecmwf.int
    … …  
    7878  endif
    7979
    80   !
     80
    8181  ! RADINTG
    8282  !
    … …  
    344344
    345345    !  -------------------------------------------------------
    346     !
     346
    347347    !  INPUT LOOP
    348     !
     348
    349349    !  -------------------------------------------------------
    350350
    … …  
    524524
    525525    !  -------------------------------------------------------
    526     !
     526
    527527    !  OUTPUT LOOP
    528     !
     528
    529529    !  -------------------------------------------------------
    530530

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_aerosol_optics_description.F90

    r4773 r5159  
    11! (C) Copyright 2022- 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
    88! nor does it submit to any jurisdiction.
    9 !
     9
    1010! Author:  Robin Hogan
    1111! Email:   r.j.hogan@ecmwf.int

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/driver/test_cloud_generator.F90

    r5158 r5159  
    11! (C) Copyright 2017- 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/driver/test_spartacus_math.F90

    r5158 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/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

  • 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

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/modify_wv_continuum.F90

    r4773 r5159  
    22
    33! MODIFY_WV_CONTINUUM - Adjust the shortwave continuum coefficients
    4 !
     4
    55! PURPOSE
    66! -------
    … …  
    1212!   coefficients to match the CAVIAR continuum. Further details on the
    1313!   impact were provided by Hogan et al. (2017, ECMWF Tech. Memo. 816).
    14 !
     14
    1515! INTERFACE
    1616! ---------
    … …  
    1919!   argument is 1 then it implements the CAVIAR continuum by scaling
    2020!   coefficients within the relevant SRTM modules.
    21 !
     21
    2222! AUTHOR
    2323! ------
    2424!   Robin Hogan, ECMWF
    2525!   Original: 2018-02-21
    26 !
     26
    2727! MODIFICATIONS
    2828! -------------
    29 !
     29
    3030! -----------------------------------------------------------------------
    3131

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/parsrtm.F90

    r4773 r5159  
    7070
    7171!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 56
    72 !
     72
    7373!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 3
    7474!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 6
    … …  
    8888!-- configuration with 14 spectral intervals
    8989!   and a total of 112 g-points (14xvariable number)
    90 !
     90
    9191!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
    92 !
     92
    9393!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
    9494!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol1.F90

    r4773 r5159  
    133133!     band 1:  10-350 cm-1 (low key - h2o; low minor - n2)
    134134!                          (high key - h2o; high minor - n2)
    135 !
     135
    136136!     note: previous versions of rrtm band 1:
    137137!           10-250 cm-1 (low - h2o; high - h2o)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/rrtm_taumol2.F90

    r4773 r5159  
    1818!*********
    1919!     band 2:  350-500 cm-1 (low key - h2o; high key - h2o)
    20 !
     20
    2121!     note: previous version of rrtm band 2:
    2222!           250 - 500 cm-1 (low - h2o; high - h2o)
    23 !
     23
    2424! ---------------------------------------------------------------------------
    2525

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/srtm_gas_optical_depth.F90

    r4773 r5159  
    4747!        ADAPTED FROM SRTM_SPCVRT_MCICA (BY JEAN-JACQUES MORCRETTE) BY
    4848!        ROBIN HOGAN
    49 !
     49
    5050!     MODIFICATIONS.
    5151!     --------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/surrtftr.F90

    r4773 r5159  
    33!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
    44!     by JJMorcrette, ECMWF
    5 !
     5
    66!     JJMorcrette 20110613 flexible number of g-points
    77!     ABozzo 201306 updated to rrtmg v4.85
    8 !
     8
    99!     ------------------------------------------------------------------
    1010
    … …  
    2121!                    & NGS1, NGS2, NGS3, NGS4, NGS5, NGS6, NGS7, NGS8,&
    2222!                    & NGS9, NGS10,NGS11,NGS12,NGS13,NGS14,NGS15,NGS16
    23 !
     23
    2424!     ------------------------------------------------------------------
    2525
    … …  
    230230
    231231!-------------------------------------------------------------------------------
    232 !
     232
    233233WT( :) = (/&
    234234 & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoerrtftr.F90

    r4773 r5159  
    2727!INTEGER(KIND=JPIM) :: NGC(JPBAND)
    2828!INTEGER(KIND=JPIM) :: NGS(JPBAND)
    29 !
     29
    3030!INTEGER(KIND=JPIM) :: NGN(JPGMAX)
    3131!INTEGER(KIND=JPIM) :: NGB(JPGMAX)
    32 !
     32
    3333!INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
    3434!REAL(KIND=JPRB) ::    WT(JPG)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrtwn.F90

    r4773 r5159  
    5656!  NGM    : INTEGER : The index of each new g-point relative to the
    5757!                     original 16 g-points for each band.
    58 !
     58
    5959!  WT     : REAL    : RRTM weights for 16 g-points.
    6060!  WTSUM  : REAL    : Sum of the weights

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/aeropt_5wv_ecrad.F90

    r5158 r5159  
    11!aeropt_5wv_ecrad.F90 2022-09-20 A. Idelkadi et O. Boucher
    2 !
     2
    33     SUBROUTINE AEROPT_5WV_ECRAD(istartcol,iendcol,istartlev,iendlev, &
    44                                 config,thermodynamics,aerosol)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/calcul_cloud_overlap_decorr_len.F90

    r5133 r5159  
    1818!      Ld=mid_decorrelation_length si pres entre [440,680]
    1919!      Ld=high_decorrelation_length si pres < 440hPa
    20 !
     20
    2121! TO DO
    2222! Que faire de PDECORR_LEN_WATER_M ?

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/radiation_scheme_mod.F90

    r5133 r5159  
    687687
    688688! RADIATION_SCHEME - Interface to modular radiation scheme
    689 !
     689
    690690! (C) Copyright 2015- ECMWF.
    691 !
     691
    692692! This software is licensed under the terms of the Apache Licence Version 2.0
    693693! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
    694 !
     694
    695695! In applying this licence, ECMWF does not waive the privileges and immunities
    696696! granted to it by virtue of its status as an intergovernmental organisation
    697697! nor does it submit to any jurisdiction.
    698 !
     698
    699699! PURPOSE
    700700! -------
    … …  
    704704!   it to the radiation scheme.  It returns net fluxes and surface
    705705!   flux components needed by the rest of the model.
    706 !
     706
    707707!   Lower case is used for variables and types taken from the
    708708!   radiation library
    709 !
     709
    710710! INTERFACE
    711711! ---------
    … …  
    713713!    SETUP_RADIATION_SCHEME routine (in the RADIATION_SETUP module)
    714714!    should have been run first.
    715 !
     715
    716716! AUTHOR
    717717! ------
    718718!   Robin Hogan, ECMWF
    719719!   Original: 2015-09-16
    720 !
     720
    721721! MODIFICATIONS
    722722! -------------
    723 !
     723
    724724! TO DO
    725725! -----
    726 !
     726
    727727!-----------------------------------------------------------------------
    728728

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

    r5133 r5159  
    22
    33! RADIATION_SETUP - Setting up modular radiation scheme
    4 !
     4
    55! AUTHOR
    66! ------
    77!   Robin Hogan, ECMWF
    88!   Original: 2015-09-16
    9 !
     9
    1010! MODIFICATIONS
    1111! -------------
    1212!   Abderrahmane Idelkadi LMD, juillet 2023
    13 !
     13
    1414!-----------------------------------------------------------------------
    1515

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosol_optic_ecrad.F90

    r5154 r5159  
    11! $Id: readaerosol_optic_ecrad.F90
    2 !
     2
    33SUBROUTINE readaerosol_optic_ecrad(debut, aerosol_couple, ok_alw, ok_volcan, &
    44     flag_aerosol, flag_bc_internal_mixture, itap, rjourvrai, &
    … …  
    102102  !   
    103103  !****************************************************************************************
    104   !
    105   !
     104
     105
    106106  IF (aerosol_couple) THEN   !--we get aerosols from tr_seri array from INCA
    107      !
     107
    108108     !--copy fields from INCA tr_seri
    109109     !--convert to ug m-3 unit for consistency with offline fields
    110      !
     110
    111111     itr = 0
    112112     DO iq = 1,nqtot
    … …  
    145145     nitrcoarse(:,:)   =   tr_seri(:,:,id_CSNO3M)                        *zrho(:,:)*1.e9  ! CSNO3M
    146146     nitrinscoarse(:,:)=   tr_seri(:,:,id_CINO3M)                        *zrho(:,:)*1.e9  ! CINO3M
    147      !
     147
    148148     bcsol_pi(:,:)        =   0.0 ! ASBCM pre-ind
    149149     pomsol_pi(:,:)       =   0.0 ! ASPOMM pre-ind
    … …  
    159159     nitrcoarse_pi(:,:)   =   0.0 ! CSNO3M pre-ind
    160160     nitrinscoarse_pi(:,:)=   0.0 ! CINO3M
    161      !
     161
    162162  ELSE !--not aerosol_couple
    163      !
     163
    164164     ! Read and interpolate sulfate
    165165     IF ( flag_aerosol .EQ. 1 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN
    … …  
    222222        loaddust=0.
    223223     ENDIF
    224      !
     224
    225225     ! Read and interpolate asno3m, csno3m, cino3m
    226226     IF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7 ) THEN
    … …  
    240240        loadno3(:)=0.0
    241241     ENDIF
    242      !
     242
    243243     ! CSSO4M is set to 0 as not reliable
    244244     sulfcoarse(:,:)      =   0.0 ! CSSO4M (=SO4) + CSMSAM (=MSA)
    … …  
    247247  ENDIF !--not aerosol_couple
    248248
    249   !
     249
    250250  ! Store all aerosols mixing ratios in one variable for radiation scheme (unit kg/kg for ECRAD)
    251251  ! present-day values
    … …  
    281281  m_allaer_pi(:,:,id_STRAT_phy)  = 0.0
    282282
    283   !
     283
    284284  ! Calculate the total mass of all soluble aersosols (in unit ug /m3)
    285285  ! to be revisited for AR6
    … …  
    289289  !****************************************************************************************
    290290  ! 2) Calculate optical properties for the aerosols
    291   !
     291
    292292  !****************************************************************************************
    293293  DO k = 1, klev

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/lmdz/readaerosolstrato_ecrad.F90

    r5154 r5159  
    1 !
     1
    22! $Id: readaerosolstrato_ecrad.F90 tlurton $
    3 !
     3
    44SUBROUTINE readaerosolstrato_ecrad(config, debut, ok_volcan)
    55
    … …  
    438438
    439439    IF (.NOT. ok_volcan) THEN
    440 !
     440
    441441!--this is the default case
    442442!--stratospheric aerosols are added to both index 2 and 1 for double radiation calls
    … …  
    464464    ENDWHERE
    465465    ENDDO
    466 !
     466
    467467    ELSE
    468 !
     468
    469469!--this is the VOLMIP case
    470470!--stratospheric aerosols are only added to index 2 in this case
    … …  
    523523      ENDWHERE
    524524    ENDDO
    525 !
     525
    526526    ELSE
    527 !
     527
    528528! mod ThL
    529529!--this is the VOLMIP case

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/ecrad_config.h

    r4859 r5159  
    11! ecrad_config.h - Preprocessor definitions to configure compilation ecRad -*- f90 -*-
    2 !
     2
    33! (C) Copyright 2023- 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
    14 !
     14
    1515! This file should be included in Fortran source files that require
    1616! different optimizations or settings for different architectures and

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_lw.F90

    r5158 r5159  
    11! radiation_adding_ica_lw.F90 - Longwave adding method in independent column approximation
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_adding_ica_sw.F90

    r5158 r5159  
    11! radiation_adding_ica_sw.F90 - Shortwave adding method in independent column approximation
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-10-23  R. Hogan  Renamed single-character variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol.F90

    r4773 r5159  
    11! radiation_aerosol.F90 - Derived type describing aerosol
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2018-04-15  R. Hogan  Add "direct" option

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics.F90

    r5158 r5159  
    11! radiation_aerosol_optics.F90 - Computing aerosol optical properties
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2018-04-15  R. Hogan  Add "direct" option

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_data.F90

    r5158 r5159  
    11! radiation_aerosol_optics_data.F90 - Type to store aerosol optical properties
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-10-23  R. Hogan  Renamed single-character variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_aerosol_optics_description.F90

    r5158 r5159  
    11! radiation_aerosol_optics_description.F90 - Type to store aerosol optics metadata
    2 !
     2
    33! (C) Copyright 2022- 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/radiation/radiation_check.F90

    r4773 r5159  
    11! radiation_check.F90 - Checking routines
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_cloud.F90

    r5158 r5159  
    11! radiation_cloud.F90 - Derived type to store cloud/precip properties
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2019-01-14  R. Hogan  Added inv_inhom_effective_size variable

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_cover.F90

    r5158 r5159  
    11! radiation_cloud_cover.F90 - Compute cumulative cloud cover for McICA
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Generate profiles of the cumulative cloud cover as seen from TOA,
    1616! used in the McICA cloud generator.
    17 !
     17
    1818! Modifications
    1919!   2020-10-07  R. Hogan  Ensure iobj1 initialized in case of alpha_obj==0

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_generator.F90

    r5158 r5159  
    11! radiation_cloud_generator.F90 - Generate water-content or optical-depth scalings for McICA
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Generate clouds for McICA using a method modified from Raisanen et
    1616! al. (2002)
    17 !
     17
    1818! Modifications
    1919!   2018-02-22  R. Hogan  Call masked version of PDF sampler for speed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics.F90

    r5158 r5159  
    11! radiation_cloud_optics.F90 - Computing cloud optical properties
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-07-22  R. Hogan  Added Yi et al. ice optics model

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_cloud_optics_data.F90

    r4853 r5159  
    11! radiation_cloud_optics_data.F90 - Type to store cloud optical properties
    2 !
     2
    33! (C) Copyright 2014- 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/radiation/radiation_cloudless_lw.F90

    r5158 r5159  
    11! radiation_cloudless_lw.F90 - Longwave homogeneous cloudless solver
    2 !
     2
    33! (C) Copyright 2019- 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/radiation/radiation_cloudless_sw.F90

    r5158 r5159  
    11! radiation_cloudless_sw.F90 - Shortwave homogeneous cloudless solver
    2 !
     2
    33! (C) Copyright 2019- 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/radiation/radiation_config.F90

    r5158 r5159  
    11! radiation_config.F90 - Derived type to configure the radiation scheme
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-07-22  R. Hogan  Added Yi et al. ice optics model
    … …  
    2828!   2020-05-18  R. Hogan  Moved out_of_bounds_* to radiation_check.F90
    2929!   2021-07-04  R. Hogan  Numerous changes for ecCKD and general cloud/aerosol optics
    30 !
     30
    3131! Note: The aim is for ecRad in the IFS to be as similar as possible
    3232! to the offline version, so if you make any changes to this or any
    … …  
    354354    ! SPARTACUS solver? This essentially means that in a situation
    355355    ! like this
    356     !
     356
    357357    ! 000111
    358358    ! 222222
    359     !
     359
    360360    ! Radiation downwelling from region 1 may be reflected back into
    361361    ! region 0 due to some degree of homogenization of the radiation

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_constants.F90

    r4773 r5159  
    11! radiation_constants.F90 - Constants used in radiation calculations
    2 !
     2
    33! (C) Copyright 2014- 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/radiation/radiation_delta_eddington.h

    r5158 r5159  
    11! radiation_delta_eddington.h - Delta-Eddington scaling -*- f90 -*-
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! This file is intended to be included inside a module to ensure that
    1616! these simple functions may be inlined

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ecckd.F90

    r5158 r5159  
    11! radiation_ecckd.F90 - ecCKD generalized gas optics model
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_ecckd_gas.F90

    r4853 r5159  
    11! radiation_ecckd_gas.F90 - type representing a single ecCKD gas
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_ecckd_interface.F90

    r5158 r5159  
    11! radiation_ecckd_interface.F90 - Interface to ecCKD gas optics model
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_flux.F90

    r5158 r5159  
    11! radiation_flux.F90 - Derived type to store the output fluxes
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-09-08  R. Hogan  Store g-point fluxes

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas.F90

    r5158 r5159  
    11! radiation_gas.F90 - Derived type to store the gas mixing ratios
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2019-01-14  R. Hogan  Added out_of_physical_bounds routine

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_gas_constants.F90

    r4773 r5159  
    11! radiation_gas_constants.F90 - Molar mases and ID codes of the various gases
    2 !
     2
    33! (C) Copyright 2014- 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/radiation/radiation_general_cloud_optics.F90

    r5158 r5159  
    11! radiation_general_cloud_optics.F90 - Computing generalized cloud optical properties
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_general_cloud_optics_data.F90

    r5158 r5159  
    11! radiation_general_cloud_optics_data.F90 - Type to store generalized cloud optical properties
    2 !
     2
    33! (C) Copyright 2019- 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/radiation/radiation_homogeneous_lw.F90

    r5158 r5159  
    11! radiation_homogeneous_lw.F90 - Longwave homogeneous-column (no cloud fraction) solver
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_homogeneous_sw.F90

    r5158 r5159  
    11! radiation_homogeneous_sw.F90 - Shortwave homogeneous-column (no cloud fraction) solver
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive albedos at g-points

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_baran.F90

    r4773 r5159  
    11! radiation_ice_optics_fu.F90 - Scheme for ice optical properties adapted from Baran's data
    2 !
     2
    33! (C) Copyright 2014- 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/radiation/radiation_ice_optics_baran2016.F90

    r4773 r5159  
    11! radiation_ice_optics_baran2016.F90 - Baran et al. (2016) scheme for ice optical properties
    2 !
     2
    33! (C) Copyright 2016- 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/radiation/radiation_ice_optics_baran2017.F90

    r4773 r5159  
    11! radiation_ice_optics_baran2017.F90 - 2017 parameterization of Baran's ice optical properties
    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/radiation/radiation_ice_optics_fu.F90

    r5158 r5159  
    11! radiation_ice_optics_fu.F90 - Fu's scheme for ice optical properties
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2020-08-10  R. Hogan  Bounded re to be <= 100um and g to be < 1.0

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ice_optics_yi.F90

    r4773 r5159  
    11! radiation_ice_optics_yi.F90 - Yi et al. (2013) ice optical properties
    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! Authors: Mark Fielding and Robin Hogan
    1313! Email:   r.j.hogan@ecmwf.int
    14 !
     14
    1515! The reference for this ice optics parameterization is Yi, B.,
    1616! P. Yang, B.A. Baum, T. L'Ecuyer, L. Oreopoulos, E.J. Mlawer,

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_ifs_rrtm.F90

    r5158 r5159  
    11! radiation_ifs_rrtm.F90 - Interface to IFS implementation of RRTM-G
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive "surface" dummy argument

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_interface.F90

    r4853 r5159  
    11! radiation_interface.F90 - Public interface to radiation scheme
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Changes to enable generalized surface description
    1717!   2017-09-08  R. Hogan  Reverted some changes
    18 !
     18
    1919! To use the radiation scheme, create a configuration_type object,
    2020! call "setup_radiation" on it once to load the look-up-tables and

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_liquid_optics_slingo.F90

    r4773 r5159  
    11! radiation_liquid_optics_slingo.F90 - Slingo SW & Lindner-Li LW parameterization of liquid droplet optics
    2 !
     2
    33! (C) Copyright 2016- 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/radiation/radiation_liquid_optics_socrates.F90

    r5158 r5159  
    11! radiation_liquid_optics_socrates.F90 - SOCRATES method for parameterizing liquid droplet optics
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2020-08-10  R. Hogan  Bounded re to be >=1.2um and <=50um

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_lw_derivatives.F90

    r5158 r5159  
    11! radiation_lw_derivatives.F90 - Compute longwave derivatives for Hogan and Bozzo (2015) method
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! This module provides routines to compute the rate of change of
    1616! broadband upwelling longwave flux at each half level with respect to
    … …  
    2222! skin temperature, following the method of Hogan and Bozzo (JAMES
    2323! 2015).  Separate routines are provided for each solver.
    24 !
     24
    2525! Note that currently a more approximate calculation is performed from
    2626! the exact one in Hogan and Bozzo (2015); here we assume that a
    … …  
    2828! when in reality there is a change in shape of the Planck function in
    2929! addition to an overall increase in the total emission.
    30 !
     30
    3131! Modifications
    3232!   2017-10-23  R. Hogan  Renamed single-character variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_matrix.F90

    r5158 r5159  
    11! radiation_matrix.F90 - SPARTACUS matrix operations
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2018-10-15  R. Hogan  Added fast_expm_exchange_[23]
    17 !
     17
    1818! This module provides the neccessary mathematical functions for the
    1919! SPARTACUS radiation scheme: matrix multiplication, matrix solvers

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_lw.F90

    r5158 r5159  
    11! radiation_mcica_lw.F90 - Monte-Carlo Independent Column Approximation longtwave solver
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_mcica_sw.F90

    r5158 r5159  
    11! radiation_mcica_sw.F90 - Monte-Carlo Independent Column Approximation shortwave solver
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive albedos at g-points

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_monochromatic.F90

    r5158 r5159  
    11! radiation_interface.F90 - Monochromatic gas/cloud optics for testing
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive "surface" dummy argument

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_optical_depth_scaling.h

    r4773 r5159  
    11! radiation_optical_depth_scaling.h - Cloud optical-depth scaling for Tripleclouds
    2 !
     2
    33! (C) Copyright 2016- 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 !
    12 !
     11
     12
    1313! Author:  Robin Hogan
    1414! Email:   r.j.hogan@ecmwf.int
    15 !
     15
    1616! Modifications
    1717!   2017-07-14  R. Hogan  Incorporate gamma distribution option
    18 !
     18
    1919! This file is intended to be included inside a module to ensure that
    2020! this simple routine may be inlined

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_overlap.F90

    r5158 r5159  
    11! radiation_overlap.F90 - Module to compute cloud overlap quantities
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-10-23  R. Hogan  Renamed single-character variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_pdf_sampler.F90

    r5158 r5159  
    11! radiation_pdf_sampler.F90 - Get samples from a PDF for McICA
    2 !
     2
    33! (C) Copyright 2015- 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/radiation/radiation_random_numbers.F90

    r5158 r5159  
    11! radiation_random_numbers.F90 - Generate random numbers for McICA solver
    2 !
     2
    33! (C) Copyright 2020- 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
    14 !
     14
    1515! The derived type "rng_type" is a random number generator that uses
    1616! either (1) Fortran's built-in random_number function, or (2) a
    … …  
    2525! mod(istate[i]*A, M). Uniform deviates are returned that normalize
    2626! the state elements to the range 0-1.
    27 !
     27
    2828! The MINSTD generator was coded because the random_numbers_mix
    2929! generator in the IFS was found not to vectorize well on some
    … …  
    3131! implementation should really be looked at and improved by someone
    3232! who knows what they are doing.
    33 !
     33
    3434! Reference for MINSTD: Park, Stephen K.; Miller, Keith
    3535! W. (1988). "Random Number Generators: Good Ones Are Hard To Find"
    3636! (PDF). Communications of the ACM. 31 (10):
    3737! 1192-1201. doi:10.1145/63039.63042
    38 !
     38
    3939! Modifications
    4040!   2022-12-01  R. Hogan  Fixed zeroed state in single precision

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_regions.F90

    r5158 r5159  
    11! radiation_regions.F90 -- Properties of horizontal regions in Tripleclouds & SPARTACUS
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Modifications
    1616!   2017-07-14  R. Hogan  Incorporate gamma distribution option

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_save.F90

    r5158 r5159  
    11! radiation_save.F90 - Save data to NetCDF files
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-22  R. Hogan  Adapt for new way of describing longwave properties

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90

    r5158 r5159  
    11! radiation_single_level.F90 - Derived type for single-level fields
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2019-01-14  R. Hogan  Added out_of_physical_bounds routine

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_lw.F90

    r5158 r5159  
    11! radiation_spartacus_lw.F90 - SPARTACUS longwave solver
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive emission/albedo rather than planck/emissivity
    … …  
    3434  ! Sides (SPARTACUS), which can represent 3D effects using a matrix
    3535  ! form of the two-stream equations.
    36   !
     36
    3737  ! Sections:
    3838  !   1: Prepare general variables and arrays

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spartacus_sw.F90

    r5158 r5159  
    11! radiation_spartacus_sw.F90 - SPARTACUS shortwave solver
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive albedos at g-points
    … …  
    4646  ! Cloud Sides (SPARTACUS), which can represent 3D effects using a
    4747  ! matrix form of the two-stream equations.
    48   !
     48
    4949  ! Sections:
    5050  !   1: Prepare general variables and arrays

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_spectral_definition.F90

    r5158 r5159  
    11! radiation_spectral_definition.F90 - Derived type to describe a spectral definition
    2 !
     2
    33! (C) Copyright 2020- 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/radiation/radiation_thermodynamics.F90

    r5158 r5159  
    11! radiation_thermodynamics.F90 - Derived type for pressure & temperature
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-05-11  R. Hogan  Fix startcol/endcol for get_layer_mass

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_lw.F90

    r5158 r5159  
    11! radiation_tripleclouds_lw.F90 - Longwave "Tripleclouds" solver
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-28  R. Hogan  Receive emission/albedo rather than planck/emissivity

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_tripleclouds_sw.F90

    r5158 r5159  
    11! radiation_tripleclouds_sw.F90 - Shortwave "Tripleclouds" solver
    2 !
     2
    33! (C) Copyright 2016- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-11  R. Hogan  Receive albedos at g-points

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_two_stream.F90

    r5158 r5159  
    11! radiation_two_stream.F90 - Compute two-stream coefficients
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-05-04  P Dueben/R Hogan  Use JPRD where double precision essential

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/easy_netcdf.F90

    r5158 r5159  
    11! easy_netcdf.F90 - Module providing convenient NetCDF read/write capability
    2 !
     2
    33! (C) Copyright 2014- 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
    14 !
     14
    1515! Modifications
    1616!   2017-04-28  R. Hogan  Fix "reshape" when writing 3D array

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/radiation_io.F90

    r4773 r5159  
    11! radiation_io.F90 - Provides logging and abort functionality
    2 !
     2
    33! (C) Copyright 2015- 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
    14 !
     14
    1515!  This file provides an interface to the provision of file units used
    1616!  for logging (nulout and nulerr) and for reading data files
    … …  
    1818!  appropriate for the environment in which the radiation scheme is
    1919!  embedded.
    20 !
     20
    2121!  Rewrite this file as appropriate if the radiation scheme is to be
    2222!  embedded into a model other than the ECMWF Integrated Forecasting

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/random_numbers_mix.F90

    r4773 r5159  
    22
    33! (C) Copyright 2002- 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
    … …  
    8585!                             Surface Radiative Transport at Large Scale via Monte Carlo.
    8686!                             Annual Review of Heat Transfer, Vol 9.
    87 !
     87
    8888!        Petersen W.P., 1994, Lagged Fibonacci Series Random Number Generator
    8989!                             for the NEC SX-3. International Journal of High Speed Computing
    9090!                             Vol. 6, No. 3, pp387-398.
    91 !
     91
    9292!        Mascagni M., Cuccaro S.A., Pryor D.V., Robinson M.L., 1995,
    9393!                             A Fast, High Quality and Reproducible Parallel Lagged-Fibonacci
    … …  
    157157  ! efficient than the Fibonacci representation. The magic numbers 31 and 87
    158158  ! define the shift register primitive polynomial=(32,7,5,3,2,1,0).
    159   !
     159
    160160  ! To ensure that different seeds produce distinct initial buffer states in
    161161  ! canonical form, bits 0...jpmm-2 of the initial seed (after XORing with jpmask
    … …  
    314314  !--------------------------------------------------------------------------------
    315315  ! Generate normally-distributed random numbers using the Box-Muller method.
    316   !
     316
    317317  ! NB: this routine does not use buffering. This means that the following calls:
    318318  !     call gaussian_distribution (zx(1:k))
Note: See TracChangeset for help on using the changeset viewer.