53 |
INTEGER ilen |
INTEGER ilen |
54 |
|
|
55 |
INTEGER ioUnit |
INTEGER ioUnit |
56 |
CHARACTER*(MAX_LEN_FNAM) pref |
CHARACTER*(MAX_LEN_FNAM) fn |
57 |
CHARACTER*(MAX_LEN_MBUF) suff |
CHARACTER*(MAX_LEN_MBUF) suff |
58 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
|
CHARACTER*(80) fn |
|
59 |
LOGICAL glf |
LOGICAL glf |
60 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
61 |
INTEGER ii |
INTEGER ii |
77 |
undef = getcon('UNDEF') |
undef = getcon('UNDEF') |
78 |
glf = globalFiles |
glf = globalFiles |
79 |
WRITE(suff,'(I10.10)') myIter |
WRITE(suff,'(I10.10)') myIter |
80 |
pref = fnames(listnum) |
ilen = ILNBLNK(fnames(listnum)) |
81 |
ilen=ILNBLNK( pref ) |
WRITE( fn, '(A,A,A)' ) fnames(listnum)(1:ilen),'.',suff(1:10) |
|
WRITE( fn, '(A,A,A)' ) pref(1:ilen),'.',suff(1:10) |
|
82 |
|
|
83 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
84 |
IF (useMNC .AND. diag_mnc) THEN |
IF (useMNC .AND. diag_mnc) THEN |
88 |
DO i = 1,NLEN |
DO i = 1,NLEN |
89 |
dn_blnk(i:i) = ' ' |
dn_blnk(i:i) = ' ' |
90 |
ENDDO |
ENDDO |
91 |
c WRITE( diag_mnc_bn, '(A,A)' ) 'diag.', pref(1:ilen) |
WRITE( diag_mnc_bn, '(A)' ) fnames(listnum)(1:ilen) |
|
WRITE( diag_mnc_bn, '(A)' ) pref(1:ilen) |
|
92 |
|
|
93 |
C Update the record dimension by writing the iteration number |
C Update the record dimension by writing the iteration number |
94 |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |
CALL MNC_CW_SET_UDIM(diag_mnc_bn, -1, myThid) |