/[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.60 by jmc, Sun Jan 13 22:46:38 2013 UTC revision 1.61 by jmc, Wed Feb 6 21:25:26 2013 UTC
# Line 41  CEOP Line 41  CEOP
41  C     !FUNCTIONS:  C     !FUNCTIONS:
42        INTEGER ILNBLNK        INTEGER ILNBLNK
43        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
 #ifdef ALLOW_FIZHI  
       _RL   getcon  
       EXTERNAL getcon  
 #endif  
44    
45  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
46  C     i,j,k :: loop indices  C     i,j,k :: loop indices
# Line 97  C---+----1----+----2----+----3----+----4 Line 93  C---+----1----+----2----+----3----+----4
93    
94  C---  set file properties  C---  set file properties
95        ioUnit= standardMessageUnit        ioUnit= standardMessageUnit
96        undefRL = UNSET_RL        undefRL = misValFlt(listId)
 #ifdef ALLOW_FIZHI  
       IF ( useFIZHI ) undefRL = getcon('UNDEF')  
 #endif  
       IF ( misvalFlt(listId).NE.UNSET_RL ) undefRL = misvalFlt(listId)  
97    
98        WRITE(suff,'(I10.10)') myIter        WRITE(suff,'(I10.10)') myIter
99        iLen = ILNBLNK(fnames(listId))        iLen = ILNBLNK(fnames(listId))
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.22