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

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

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

revision 1.3 by molod, Thu Feb 26 19:52:05 2004 UTC revision 1.4 by molod, Thu Feb 26 22:08:49 2004 UTC
# Line 1  Line 1 
1        subroutine  diagout (myThid,listnum)        subroutine  diagout (myThid,myIter,listnum)
2  C***********************************************************************  C***********************************************************************
3  C  C
4  C  Purpose  C  Purpose
# Line 25  C*************************************** Line 25  C***************************************
25  #include "diagnostics_SIZE.h"  #include "diagnostics_SIZE.h"
26  #include "diagnostics.h"  #include "diagnostics.h"
27    
28        integer myThid, listnum        integer myThid, myIter, listnum
29    
30        integer i, j, k, m, n, bi, bj        integer i, j, k, m, n, bi, bj
31        character*8 parms1        character*8 parms1
# Line 39  C*************************************** Line 39  C***************************************
39        equivalence (     parms1 , parse1(1) )        equivalence (     parms1 , parse1(1) )
40        equivalence ( mate_index , parse1(6) )        equivalence ( mate_index , parse1(6) )
41    
42          CHARACTER*(MAX_LEN_FNAM) pref
43          CHARACTER*(MAX_LEN_MBUF) suff
44          CHARACTER*(80) fn
45          logical glf
46    
47        undef = getcon('UNDEF')        undef = getcon('UNDEF')
48          glf = .FALSE.
49          WRITE(suff,'(I10.10)') myIter
50          pref = fnames(listnum)
51          WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
52    
53        do n=1,nfields(listnum)        do n=1,nfields(listnum)
54         do m=1,ndiagt         do m=1,ndiagt
# Line 91  c -------------------------------------- Line 99  c --------------------------------------
99            endif            endif
100           endif           endif
101          endif          endif
102           call mdswritefield(fn,64,glf,'RL',kdiag(m),qtmp1,1,myIter,myThid)
103         enddo         enddo
        call mdswritefield(k)  
104        enddo        enddo
105    
106    100 format(i3)    100 format(i3)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22