/[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.56 by jmc, Thu Jun 23 15:29:01 2011 UTC revision 1.57 by jmc, Mon Jun 27 22:27:23 2011 UTC
# Line 86  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm Line 86  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm
86  #endif  #endif
87  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
88        CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn        CHARACTER*(MAX_LEN_FNAM) diag_mnc_bn
       LOGICAL missingValFillsMask  
89  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
90    
91  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 155  C--   Place the loop on lm (= averagePer Line 154  C--   Place the loop on lm (= averagePer
154         IF (useMNC .AND. diag_mnc) THEN         IF (useMNC .AND. diag_mnc) THEN
155           CALL DIAGNOSTICS_MNC_SET(           CALL DIAGNOSTICS_MNC_SET(
156       I                    nLevOutp, listId, lm,       I                    nLevOutp, listId, lm,
157       O                    diag_mnc_bn, missingValFillsMask,       O                    diag_mnc_bn,
158       I                    undefRL, myTime, myIter, myThid )       I                    undefRL, myTime, myIter, myThid )
159         ENDIF         ENDIF
160  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
# Line 390  C         a hack not to write meta files Line 389  C         a hack not to write meta files
389            IF (useMNC .AND. diag_mnc) THEN            IF (useMNC .AND. diag_mnc) THEN
390              CALL DIAGNOSTICS_MNC_OUT(              CALL DIAGNOSTICS_MNC_OUT(
391       I                       NrMax, nLevOutp, listId, ndId, mate,       I                       NrMax, nLevOutp, listId, ndId, mate,
392       I                       diag_mnc_bn,       I                       diag_mnc_bn, qtmp1,
393       I                       missingValFillsMask, undefRL,       I                       undefRL, myTime, myIter, myThid )
      I                       qtmp1,  
      I                       myTime, myIter, myThid )  
394            ENDIF            ENDIF
395  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
396    
Legend:
Removed from v.1.56  
changed lines
  Added in v.1.57
  ViewVC Help
Powered by ViewVC 1.1.22