Last change
on this file since 2694 was
1945,
checked in by lguez, 11 years ago
|
Duplicated files moved to dyn3d_common.
|
-
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 | ! |
---|
4 | module 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 | |
---|
31 | end module com_io_dyn_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.