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

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

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

revision 1.10 by gforget, Wed Jan 11 00:22:48 2017 UTC revision 1.11 by jmc, Sun Jul 23 00:24:18 2017 UTC
# Line 176  C-    p^kappa interpolation: meaningfull Line 176  C-    p^kappa interpolation: meaningfull
176          IF (select_rStar.GT.0) THEN          IF (select_rStar.GT.0) THEN
177  C-    If nonlinear free surf is active, need averaged pressures  C-    If nonlinear free surf is active, need averaged pressures
178           DO md = 1,nfields(ld)           DO md = 1,nfields(ld)
179            nd = jdiag(md,ld)            nd = ABS(jdiag(md,ld))
180            CALL DIAGNOSTICS_GET_POINTERS( 'RSURF   ', ld,            CALL DIAGNOSTICS_GET_POINTERS( 'RSURF   ', ld,
181       &                                   jpoint1, ipoint1, myThid )       &                                   jpoint1, ipoint1, myThid )
182            IF ( useFIZHI .AND.            IF ( useFIZHI .AND.
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22