/[MITgcm]/MITgcm/utils/knudsen2/knudsen2.f
ViewVC logotype

Diff of /MITgcm/utils/knudsen2/knudsen2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by adcroft, Thu May 28 16:26:56 1998 UTC revision 1.2 by adcroft, Mon Jun 22 15:26:26 1998 UTC
# Line 12  C     OF POTENTIAL TEMPERATURE, SALINITY Line 12  C     OF POTENTIAL TEMPERATURE, SALINITY
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
# Line 73  C           SMax(K) = UPPER BND OF S Line 73  C           SMax(K) = UPPER BND OF S
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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22