12 |
C |
C |
13 |
C Number of levels |
C Number of levels |
14 |
integer NumLevels |
integer NumLevels |
15 |
PARAMETER (NumLevels=2) |
PARAMETER (NumLevels=15) |
16 |
|
|
17 |
C Number of Temperature and Salinity callocation points |
C Number of Temperature and Salinity callocation points |
18 |
integer NumTempPt,NumSalPt,NumCallocPt |
integer NumTempPt,NumSalPt,NumCallocPt |
73 |
|
|
74 |
C ENTER LEVEL THICKNESSES IN CENTIMETERS |
C ENTER LEVEL THICKNESSES IN CENTIMETERS |
75 |
C DATA dz/ 4*50.E2, 2*100.E2, 200.E2, 400.E2, 7*500.E2, 6*10.E2 / |
C DATA dz/ 4*50.E2, 2*100.E2, 200.E2, 400.E2, 7*500.E2, 6*10.E2 / |
76 |
c DATA dz/ 5.00e+03,7.00e+03,1.00e+04,1.40e+04, |
DATA dz/ 5.00e+03,7.00e+03,1.00e+04,1.40e+04, |
77 |
c &1.90e+04,2.40e+04,2.90e+04,3.40e+04,3.90e+04, |
&1.90e+04,2.40e+04,2.90e+04,3.40e+04,3.90e+04, |
78 |
c &4.40e+04,4.90e+04,5.40e+04,5.90e+04,6.40e+04, |
&4.40e+04,4.90e+04,5.40e+04,5.90e+04,6.40e+04, |
79 |
c &6.90e+04/ ! ,6.90e+04/ |
&6.90e+04/ ! ,6.90e+04/ |
|
DATA dz/ 2*500.e2/ |
|
80 |
|
|
81 |
C CALC DEPTHS OF LEVELS FROM DZ (IN METERS) |
C CALC DEPTHS OF LEVELS FROM DZ (IN METERS) |
82 |
C THE MAXIMUM ALLOWABLE DEPTH IS 8000 METERS |
C THE MAXIMUM ALLOWABLE DEPTH IS 8000 METERS |