source: LMDZ6/trunk/libf/phylmd/nuage_params_mod_h.f90 @ 5394

Last change on this file since 5394 was 5307, checked in by Laurent Fairhead, 6 weeks ago

Renamed for create_makegcm

  • 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: 775 bytes
Line 
1! Replaces nuage.h
2
3MODULE nuage_params_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC rad_froid, rad_chau1, rad_chau2, &
6          tau_cld_cv, coefw_cld_cv, &
7          tmax_fonte_cv, iflag_ratqs, &
8          iflag_cld_cv, &
9          ok_icefra_lscp
10
11  REAL rad_froid, rad_chau1, rad_chau2
12  REAL tau_cld_cv, coefw_cld_cv
13  REAL tmax_fonte_cv
14  INTEGER iflag_cld_cv, iflag_ratqs
15  LOGICAL ok_icefra_lscp
16
17  !$OMP THREADPRIVATE(rad_froid,rad_chau1, rad_chau2,                 &
18  !$OMP                    tau_cld_cv,coefw_cld_cv,                        &
19  !$OMP                    tmax_fonte_cv,iflag_ratqs,                      &
20  !$OMP                    iflag_cld_cv,                                   &
21  !$OMP                    ok_icefra_lscp)
22
23END MODULE nuage_params_mod_h
Note: See TracBrowser for help on using the repository browser.