/[MITgcm]/MITgcm/model/src/seawater.F
ViewVC logotype

Diff of /MITgcm/model/src/seawater.F

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

revision 1.10 by mlosch, Sun Feb 15 16:47:32 2015 UTC revision 1.11 by mlosch, Thu Feb 26 17:17:56 2015 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  C--  File seawater.F: routines that compute quantities related to seawater.  C--  File seawater.F: routines that compute quantities related to seawater.
7  C--   Contents  C--   Contents
8    C     Seawater (SW) librabry routines
9  C--   o SW_PTMP: function to compute potential temperature  C--   o SW_PTMP: function to compute potential temperature
10  C--   o SW_TEMP: function to compute in-situ temperature from pot. temp.  C--   o SW_TEMP: function to compute in-situ temperature from pot. temp.
11  C--   o SW_ADTG: function to compute adiabatic temperature gradient  C--   o SW_ADTG: function to compute adiabatic temperature gradient
# Line 33  C     S  :: salinity    [psu      (PSS-7 Line 34  C     S  :: salinity    [psu      (PSS-7
34  C     T  :: temperature [degree C (IPTS-68)]  C     T  :: temperature [degree C (IPTS-68)]
35  C     P  :: pressure    [db]  C     P  :: pressure    [db]
36  C     PR :: Reference pressure  [db]  C     PR :: Reference pressure  [db]
37    C     \ev
38    
39  C     !USES:  C     !USES:
40        IMPLICIT NONE        IMPLICIT NONE
# Line 95  C     Bryden, H. 1973. Line 97  C     Bryden, H. 1973.
97  C     New Polynomials for thermal expansion, adiabatic temperature gradient  C     New Polynomials for thermal expansion, adiabatic temperature gradient
98  C     and potential temperature of sea water.  C     and potential temperature of sea water.
99  C     DEEP-SEA RES., 1973, Vol20,401-408.  C     DEEP-SEA RES., 1973, Vol20,401-408.
100    C     \ev
101    
102  C     !USES:  C     !USES:
103        IMPLICIT NONE        IMPLICIT NONE
# Line 133  C     *================================= Line 136  C     *=================================
136  C  C
137  C     started:  C     started:
138  C              Armin Koehl akoehl@ucsd.edu  C              Armin Koehl akoehl@ucsd.edu
139    C     \ev
140    
141  C     !USES:  C     !USES:
142        IMPLICIT NONE        IMPLICIT NONE
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22