source: LMDZ6/trunk/libf/dyn3d_common/comdissnew_mod_h.f90 @ 5410

Last change on this file since 5410 was 5280, checked in by abarral, 7 weeks ago

Turn comdissip.h, comdissipn.h, comdissnew.h into modules

  • 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: 623 bytes
Line 
1! Replaces comdissnew.h
2
3MODULE comdissnew_mod_h
4  IMPLICIT NONE; PRIVATE
5  PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
6          tetagrot, tetatemp, coefdis, vert_prof_dissip
7
8  LOGICAL lstardis
9  INTEGER nitergdiv, nitergrot, niterh
10
11  INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation
12  !     Allowed values:
13  !     0: rational fraction, function of pressure
14  !     1: tanh of altitude
15
16  REAL     tetagdiv, tetagrot, tetatemp, coefdis
17  ! ... Les parametres de ce lmdz_comdissnew sont  lues par defrun_new
18  !              sur le fichier  run.def    ....
19END MODULE comdissnew_mod_h
Note: See TracBrowser for help on using the repository browser.