/[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.4 by jmc, Mon Jun 27 22:27:23 2011 UTC revision 1.5 by jmc, Wed Feb 6 16:24:29 2013 UTC
# Line 74  c     CHARACTER*(NLEN) dn_blnk Line 74  c     CHARACTER*(NLEN) dn_blnk
74        CHARACTER*(5) ctmp        CHARACTER*(5) ctmp
75        _RS ztmp(NrMax)        _RS ztmp(NrMax)
76  #endif  #endif
       INTEGER misvalIntLoc  
77        REAL*8  misval_r8(2)        REAL*8  misval_r8(2)
78        REAL*4  misval_r4(2)        REAL*4  misval_r4(2)
79        INTEGER misval_int(2)        INTEGER misval_int(2)
# Line 84  c     IF (useMNC .AND. diag_mnc) THEN Line 83  c     IF (useMNC .AND. diag_mnc) THEN
83    
84  C     Handle missing value attribute (land points)  C     Handle missing value attribute (land points)
85  C     Defaults to UNSET_I  C     Defaults to UNSET_I
         misvalIntLoc = misvalInt(listId)  
86          DO ii=1,2          DO ii=1,2
87            misval_r4(ii)  = misValLoc            misval_r4(ii)  = misValLoc
88            misval_r8(ii)  = misValLoc            misval_r8(ii)  = misValLoc
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22