My Project
ice_model_size.f90
Go to the documentation of this file.
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 !/===========================================================================/
13 ! CVS VERSION INFORMATION
14 ! $Id$
15 ! $Name$
16 ! $Revision$
17 !/===========================================================================/
18 
19 !=======================================================================
20 !BOP
21 !
22 ! !MODULE: ice_model_size
23 !
24 ! !DESCRIPTION:
25 !
26 ! Defines the global domain size and number of categories and layers. \! Code originally based on model\_size.F in POP
27 !
28 ! !REVISION HISTORY:
29 !
30 ! author Elizabeth C. Hunke, LANL
31 !
32 ! !INTERFACE:
33 !
35 !
36 ! !USES:
37 !
38  use ice_kinds_mod
39 !
40 !EOP
41 !=======================================================================
42 
43  use lims, only : mgl
44 
45  implicit none
46  save
47 
48  integer (kind=int_kind), parameter :: &
49  imt_global = 1, & ! i-axis size
50  jmt_global = 100, & ! MGL, & ! j-axis size
51  ncat = 5, & ! number of categories
52  nilyr = 4, & ! number of layers in a single category
53  ntilay = ncat*nilyr ! sum of number of layers in all categories
54 
55 !=======================================================================
56 
57  end module ice_model_size
58 
59 !=======================================================================
integer(kind=int_kind), parameter nilyr
integer(kind=int_kind), parameter jmt_global
integer(kind=int_kind), parameter imt_global
integer mgl
Definition: mod_main.f90:50
integer(kind=int_kind), parameter ncat
integer(kind=int_kind), parameter ntilay