source: LMDZ5/trunk/libf/dyn3d/com_io_dyn_mod.F90 @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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
File size: 918 bytes
Line 
1!
2! $Id $
3!
4module com_io_dyn_mod
5
6  implicit none
7
8! Names of various files for outputs (in the dynamics)
9  ! to store instantaneous values:
10  character(len=18),parameter :: dynhist_file="dyn_hist.nc" ! on scalar grid
11  character(len=18),parameter :: dynhistv_file="dyn_histv.nc" ! on v grid
12  character(len=18),parameter :: dynhistu_file="dyn_histu.nc" ! on u grid
13
14  ! to store averaged values:
15  character(len=18),parameter :: dynhistave_file="dyn_hist_ave.nc"
16  character(len=18),parameter :: dynhistvave_file="dyn_histv_ave.nc"
17  character(len=18),parameter :: dynhistuave_file="dyn_histu_ave.nc"
18 
19! Ids of various files for outputs (in the dynamics)
20
21  ! instantaneous (these are set by inithist.F)
22  integer :: histid
23  integer :: histvid
24  integer :: histuid
25 
26  ! averages (these are set by initdynav.F)
27  integer :: histaveid
28  integer :: histvaveid
29  integer :: histuaveid
30 
31end module com_io_dyn_mod
Note: See TracBrowser for help on using the repository browser.