/[MITgcm]/MITgcm/pkg/diagnostics/prestopres.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/prestopres.F

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

revision 1.1 by molod, Mon Jul 11 16:20:10 2005 UTC revision 1.2 by molod, Tue Jul 12 20:25:45 2005 UTC
# Line 22  C   Quantity is interpolated Linear in P Line 22  C   Quantity is interpolated Linear in P
22  C   Between  PTOP**Kappa and PKZ(1),  quantity is extrapolated.  C   Between  PTOP**Kappa and PKZ(1),  quantity is extrapolated.
23  C   Between PKSRF**Kappa and PKZ(LM), quantity is extrapolated.  C   Between PKSRF**Kappa and PKZ(LM), quantity is extrapolated.
24  C   Undefined Input quantities are not used.  C   Undefined Input quantities are not used.
25    C   Finally: This routine assumes that pressure levels are counted
26    C            top down -- ie, level 1 is the top, level lm is the bottom
27  C                                                C                                              
28  C***********************************************************************  C***********************************************************************
29  C      C    
# Line 40  C Line 42  C
42        kappa = getcon('KAPPA')        kappa = getcon('KAPPA')
43            
44        pk    =    p**kappa        pk    =    p**kappa
45        pktop = ptop**kappa        if(ptop.ne.0.) then
46           pktop = ptop**kappa
47          else
48           pktop = 0.
49          endif
50    
51  c Initialize to UNDEFINED  c Initialize to UNDEFINED
52  c -----------------------  c -----------------------
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22