28 |
|
|
29 |
C-- COMMON / RESTART_I / Integer valued parameters used for restart |
C-- COMMON / RESTART_I / Integer valued parameters used for restart |
30 |
C nCheckLev :: Holds current checkpoint level (alternating pickup) |
C nCheckLev :: Holds current checkpoint level (alternating pickup) |
31 |
C tempStartAB :: number of previous time level gT/Temp that are |
C tempStartAB :: number of previous gT/Temp time levels which are |
32 |
C available to start (or restart) Adams-Bashforth |
C available to start (or restart) Adams-Bashforth. |
33 |
C saltStartAB :: number of previous time level gS/Salt that are |
C saltStartAB :: number of previous gS/Salt time levels which are |
34 |
C available to start (or restart) Adams-Bashforth |
C available to start (or restart) Adams-Bashforth. |
35 |
C mom_StartAB :: number of previous time level gU,gV that are |
C mom_StartAB :: number of previous gU,gV time levels which are |
36 |
C available to start (or restart) Adams-Bashforth |
C available to start (or restart) Adams-Bashforth. |
37 |
C nHydStartAB :: number of previous time level gW that are |
C nHydStartAB :: number of previous gW time levels which are |
38 |
C available to start (or restart) Adams-Bashforth |
C available to start (or restart) Adams-Bashforth. |
39 |
|
C dPhiNHstatus :: status of field dPhiNH: 1= loaded from pickup |
40 |
|
C 0= not available in pickup |
41 |
COMMON / RESTART_I / |
COMMON / RESTART_I / |
42 |
& nCheckLev, |
& nCheckLev, |
43 |
& tempStartAB, saltStartAB, |
& tempStartAB, saltStartAB, |
44 |
& mom_StartAB, nHydStartAB |
& mom_StartAB, nHydStartAB, |
45 |
|
& dPhiNHstatus |
46 |
INTEGER nCheckLev |
INTEGER nCheckLev |
47 |
INTEGER tempStartAB |
INTEGER tempStartAB |
48 |
INTEGER saltStartAB |
INTEGER saltStartAB |
49 |
INTEGER mom_StartAB |
INTEGER mom_StartAB |
50 |
INTEGER nHydStartAB |
INTEGER nHydStartAB |
51 |
|
INTEGER dPhiNHstatus |
52 |
|
|
53 |
C-- COMMON / RESTART_C / Character valued parameters used for restart |
C-- COMMON / RESTART_C / Character valued parameters used for restart |
54 |
C checkPtSuff :: List of checkpoint file suffices |
C checkPtSuff :: List of checkpoint file suffices |