/[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.55 by jmc, Wed Jun 22 19:09:40 2011 UTC revision 1.56 by jmc, Thu Jun 23 15:29:01 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
89        LOGICAL useMissingValue        LOGICAL missingValFillsMask
       REAL*8 misValLoc  
90  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
91    
92  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 98  C---  set file properties Line 97  C---  set file properties
97  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
98        IF ( useFIZHI ) undefRL = getcon('UNDEF')        IF ( useFIZHI ) undefRL = getcon('UNDEF')
99  #endif  #endif
100          IF ( misvalFlt(listId).NE.UNSET_RL ) undefRL = misvalFlt(listId)
101    
102        WRITE(suff,'(I10.10)') myIter        WRITE(suff,'(I10.10)') myIter
103        iLen = ILNBLNK(fnames(listId))        iLen = ILNBLNK(fnames(listId))
104        WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff(1:10)        WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff(1:10)
# Line 152  C--   Place the loop on lm (= averagePer Line 153  C--   Place the loop on lm (= averagePer
153    
154  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
155         IF (useMNC .AND. diag_mnc) THEN         IF (useMNC .AND. diag_mnc) THEN
          misValLoc = undefRL  
          IF ( misvalFlt(listId).NE.UNSET_RL )  
      &        misValLoc = misvalFlt(listId)  
156           CALL DIAGNOSTICS_MNC_SET(           CALL DIAGNOSTICS_MNC_SET(
157       I                    nLevOutp, listId, lm,       I                    nLevOutp, listId, lm,
158       O                    diag_mnc_bn, useMissingValue,       O                    diag_mnc_bn, missingValFillsMask,
159       I                    misValLoc, myTime, myIter, myThid )       I                    undefRL, myTime, myIter, myThid )
160         ENDIF         ENDIF
161  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
162    
# Line 391  C         a hack not to write meta files Line 389  C         a hack not to write meta files
389  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
390            IF (useMNC .AND. diag_mnc) THEN            IF (useMNC .AND. diag_mnc) THEN
391              CALL DIAGNOSTICS_MNC_OUT(              CALL DIAGNOSTICS_MNC_OUT(
392       I                       NrMax, nLevOutp, listId, ndId,       I                       NrMax, nLevOutp, listId, ndId, mate,
393       I                       diag_mnc_bn,       I                       diag_mnc_bn,
394       I                       useMissingValue, misValLoc,       I                       missingValFillsMask, undefRL,
395       I                       qtmp1,       I                       qtmp1,
396       I                       myTime, myIter, myThid )       I                       myTime, myIter, myThid )
397            ENDIF            ENDIF
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22