-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtimelv.h
24 lines (23 loc) · 815 Bytes
/
timelv.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
c====================== include file "timelv.h" ========================
#ifdef hcomments
c
c @(#) SCCS module: timelv.h version: 1.1
c Creation date: 10/13/97
c
c time level pointers (indices)
c
c baroclinic pointers
c nm = time level pointer (index) corresponding to "itt-2"
c nc = time level pointer (index) corresponding to "itt-1"
c np = time level pointer (index) corresponding to "itt"
c
c free surface model
c nbt = number of free surface model timesteps "dtbt"
c per baroclinic timestep "dtuv"
c nm0 = time level pointer to "itt0-2"
c nc0 = time level pointer to "itt0-1"
c np0 = time level pointer to "itt0"
c where "itt0" is the free surface model timestep.
c
#endif
common /ctlevp/ nm, nc, np, nbt, nm0, nc0, np0