source: LMDZ6/branches/Amaury_dev/libf/phylmd/nuage.h @ 5116

Last change on this file since 5116 was 5099, checked in by abarral, 4 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 582 bytes
RevLine 
[5099]1
[1286]2! $Id: nuage.h 5099 2024-07-22 19:29:09Z abarral $
[5099]3
[4535]4      REAL rad_froid, rad_chau1, rad_chau2
[2205]5      REAL tau_cld_cv,coefw_cld_cv
[2287]6      REAL tmax_fonte_cv
[4613]7      INTEGER iflag_cld_cv, iflag_ratqs
[4380]8      LOGICAL ok_icefra_lscp
[2006]9
[4535]10      common /nuagecom/ rad_froid,rad_chau1, rad_chau2,                 &
[2205]11     &                  tau_cld_cv,coefw_cld_cv,                        &
[4613]12     &                  tmax_fonte_cv,iflag_ratqs,                      &
[4535]13     &                  iflag_cld_cv,                                   &
[4707]14     &                  ok_icefra_lscp                                 
[766]15!$OMP THREADPRIVATE(/nuagecom/)
Note: See TracBrowser for help on using the repository browser.