source: LMDZ6/branches/Ocean_skin/libf/phylmd/ecrad/dr_hook_util.h @ 5185

Last change on this file since 5185 was 3908, checked in by idelkadi, 4 years ago

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
    • interface routine : radiation_scheme.F90
  • Adaptation of compilation scripts :
    • compilation under CPP key CPP_ECRAD
    • compilation with option "-rad ecard" or "-ecard true"
    • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
  • Runing LMDZ simulations with ecrad, you need :
    • logical key iflag_rrtm = 2 in physiq.def
    • namelist_ecrad (DefLists?)
    • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
  • Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...
File size: 745 bytes
Line 
1/**
2 * (C) Copyright 2014- ECMWF.
3 *
4 * This software is licensed under the terms of the Apache Licence Version 2.0
5 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6 *
7 * In applying this licence, ECMWF does not waive the privileges and immunities
8 * granted to it by virtue of its status as an intergovernmental organisation
9 * nor does it submit to any jurisdiction.
10 */
11
12INTERFACE
13SUBROUTINE DR_HOOK_UTIL(LDHOOK,CDNAME,KCASE,PKEY,CDFILENAME,KSIZEINFO)
14USE PARKIND1  ,ONLY : JPIM     ,JPRB
15IMPLICIT NONE
16LOGICAL, INTENT(INOUT)      :: LDHOOK
17CHARACTER(LEN=*),INTENT(IN) :: CDNAME,CDFILENAME
18INTEGER(KIND=JPIM),INTENT(IN) :: KCASE,KSIZEINFO
19REAL(KIND=JPRB),INTENT(INOUT) :: PKEY
20END SUBROUTINE DR_HOOK_UTIL
21END INTERFACE
Note: See TracBrowser for help on using the repository browser.