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

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

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

revision 1.1 by jmc, Sat Jun 11 23:29:44 2011 UTC revision 1.2 by jmc, Sun Jun 12 13:58:33 2011 UTC
# Line 16  C     !ROUTINE: DIAGNOSTICS_MNC_SET Line 16  C     !ROUTINE: DIAGNOSTICS_MNC_SET
16  C     !INTERFACE:  C     !INTERFACE:
17        SUBROUTINE DIAGNOSTICS_MNC_SET(        SUBROUTINE DIAGNOSTICS_MNC_SET(
18       I     nLevOutp, listId, lm,       I     nLevOutp, listId, lm,
19       O     diag_mnc_bn,       O     diag_mnc_bn, useMissingValue,
20       O     useMissingValue, misValLoc,       I     misValLoc, myTime, myIter, myThid )
      I     myTime, myIter, myThid )  
21    
22  C     !DESCRIPTION:  C     !DESCRIPTION:
23  C     Set MNC file for writing diagnostics fields.  C     Set MNC file for writing diagnostics fields.
# Line 58  C     !LOCAL VARIABLES: Line 57  C     !LOCAL VARIABLES:
57        INTEGER NrMax        INTEGER NrMax
58        PARAMETER( NrMax = numLevels )        PARAMETER( NrMax = numLevels )
59    
       _RL undef  
60        _RL tmpLev        _RL tmpLev
61        INTEGER iLen        INTEGER iLen
62    
# Line 89  C     Handle missing value attribute (la Line 87  C     Handle missing value attribute (la
87  #ifdef DIAGNOSTICS_MISSING_VALUE  #ifdef DIAGNOSTICS_MISSING_VALUE
88          useMissingValue = .TRUE.          useMissingValue = .TRUE.
89  #endif /* DIAGNOSTICS_MISSING_VALUE */  #endif /* DIAGNOSTICS_MISSING_VALUE */
         IF ( misvalFlt(listId) .NE. UNSET_RL ) THEN  
           misValLoc = misvalFlt(listId)  
         ELSE  
           misValLoc = undef  
         ENDIF  
90  C     Defaults to UNSET_I  C     Defaults to UNSET_I
91          misvalIntLoc = misvalInt(listId)          misvalIntLoc = misvalInt(listId)
92          DO ii=1,2          DO ii=1,2
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22