source: LMDZ6/branches/blowing_snow/libf/phylmd/nuage.h @ 5229

Last change on this file since 5229 was 4380, checked in by evignon, 22 months ago

premier commit d'un travail en cours sur l'externalisation de la routine lscp pour l'utilisation du replay
+ nettoyage

  • 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: 1013 bytes
Line 
1!
2! $Id: nuage.h 4380 2023-01-11 09:45:36Z abarral $
3!
4      REAL rad_froid, rad_chau1, rad_chau2, t_glace_max, t_glace_min
5      REAL exposant_glace
6      REAL rei_min,rei_max
7      REAL tau_cld_cv,coefw_cld_cv
8
9      REAL tmax_fonte_cv
10
11      INTEGER iflag_t_glace, iflag_cloudth_vert, iflag_cld_cv
12      INTEGER iflag_rain_incloud_vol
13   
14      INTEGER iflag_gammasat, iflag_vice, iflag_rei
15      LOGICAL ok_icefra_lscp
16
17      common /nuagecom/ rad_froid,rad_chau1, rad_chau2,t_glace_max,     &
18     &                  t_glace_min,exposant_glace,rei_min,rei_max,     &
19     &                  tau_cld_cv,coefw_cld_cv,                        &
20     &                  tmax_fonte_cv,                                  &
21     &                  iflag_t_glace,iflag_cloudth_vert,iflag_cld_cv,  &
22     &                  iflag_rain_incloud_vol,                         &
23     &                  ok_icefra_lscp,                  &
24     &                  iflag_gammasat, iflag_vice,       &
25     &                  iflag_rei   
26!$OMP THREADPRIVATE(/nuagecom/)
Note: See TracBrowser for help on using the repository browser.