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

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

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

revision 1.15 by jmc, Sun Jun 26 16:51:49 2005 UTC revision 1.16 by edhill, Thu Jul 7 15:32:35 2005 UTC
# Line 126  C       Update the record dimension by w Line 126  C       Update the record dimension by w
126          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)          CALL MNC_CW_DEL_VNAME('diag_levels', myThid)
127          CALL MNC_CW_DEL_GNAME('diag_levels', myThid)          CALL MNC_CW_DEL_GNAME('diag_levels', myThid)
128    
129    #ifdef DIAG_MNC_COORD_NEEDSWORK
130    C       This part has been placed in an #ifdef because, as its currently
131    C       written, it will only work with variables defined on a dynamics
132    C       grid.  As we start using diagnostics for physics grids, ice
133    C       levels, land levels, etc. the different vertical coordinate
134    C       dimensions will have to be taken into account.
135    
136  C       Now define:  Zmdxxxxxx, Zudxxxxxx, Zldxxxxxx  C       Now define:  Zmdxxxxxx, Zudxxxxxx, Zldxxxxxx
137          ctmp(1:5) = 'mul  '          ctmp(1:5) = 'mul  '
138          DO i = 1,3          DO i = 1,3
# Line 168  C         for averaged levels. Line 175  C         for averaged levels.
175            CALL MNC_CW_DEL_VNAME(dn(1), myThid)            CALL MNC_CW_DEL_VNAME(dn(1), myThid)
176            CALL MNC_CW_DEL_GNAME(dn(1), myThid)            CALL MNC_CW_DEL_GNAME(dn(1), myThid)
177          ENDDO          ENDDO
178    #endif /*  DIAG_MNC_COORD_NEEDSWORK  */
179    
180        ENDIF        ENDIF
181  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22