/[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.61 by jmc, Wed Feb 6 21:25:26 2013 UTC revision 1.62 by gforget, Wed Jan 11 00:22:48 2017 UTC
# Line 74  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm Line 74  c     COMMON /LOCAL_DIAGNOSTICS_OUT/ qtm
74        _RL undefRL        _RL undefRL
75        INTEGER nLevOutp, kLev        INTEGER nLevOutp, kLev
76    
77        INTEGER iLen        INTEGER iLen,jLen
78        INTEGER ioUnit        INTEGER ioUnit
79        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
80        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
# Line 98  C---  set file properties Line 98  C---  set file properties
98        WRITE(suff,'(I10.10)') myIter        WRITE(suff,'(I10.10)') myIter
99        iLen = ILNBLNK(fnames(listId))        iLen = ILNBLNK(fnames(listId))
100        WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff(1:10)        WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff(1:10)
101          IF ( diag_mdsio.AND.(diagMdsDir.NE.' ') ) THEN
102            jLen = ILNBLNK(diagMdsDir)
103            WRITE( fn, '(5A)' ) diagMdsDir(1:jLen),'/',
104         &    fnames(listId)(1:iLen),'.',suff(1:10)
105          ENDIF
106  C-    for now, if integrate vertically, output field has just 1 level:  C-    for now, if integrate vertically, output field has just 1 level:
107        nLevOutp = nlevels(listId)        nLevOutp = nlevels(listId)
108        IF ( fflags(listId)(2:2).EQ.'I' ) nLevOutp = 1        IF ( fflags(listId)(2:2).EQ.'I' ) nLevOutp = 1
Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62
  ViewVC Help
Powered by ViewVC 1.1.22