source: LMDZ6/branches/Ocean_skin/libf/phylmd/nuage.h @ 5059

Last change on this file since 5059 was 4368, checked in by lguez, 2 years ago

Sync latest trunk changes to Ocean_skin
  • 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: 1.0 KB
Line 
1!
2! $Id: nuage.h 4368 2022-12-05 23:01:16Z idelkadi $
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_mpc_bl, iflag_gammasat, iflag_vice, iflag_rei
15      LOGICAL ok_icefra_lscp, ok_radliq_snow
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,ok_radliq_snow,                  &
24     &                  iflag_mpc_bl, iflag_gammasat, iflag_vice,       &
25     &                  iflag_rei   
26!$OMP THREADPRIVATE(/nuagecom/)
Note: See TracBrowser for help on using the repository browser.