105 |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname, |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname, |
106 |
& ''' must be opened first' |
& ''' must be opened first' |
107 |
CALL print_error(msgbuf, mythid) |
CALL print_error(msgbuf, mythid) |
108 |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL' |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY' |
109 |
ENDIF |
ENDIF |
110 |
fid = mnc_f_info(indf,2) |
fid = mnc_f_info(indf,2) |
111 |
|
|
115 |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:lenf), |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:lenf), |
116 |
& ''' contains NO grids' |
& ''' contains NO grids' |
117 |
CALL print_error(msgbuf, mythid) |
CALL print_error(msgbuf, mythid) |
118 |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL' |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY' |
119 |
ENDIF |
ENDIF |
120 |
DO i = 1,ngrid |
DO i = 1,ngrid |
121 |
j = 4 + (i-1)*3 |
j = 4 + (i-1)*3 |
137 |
write(msgbuf,'(5a)') 'MNC ERROR: file ''', fname(1:lenf), |
write(msgbuf,'(5a)') 'MNC ERROR: file ''', fname(1:lenf), |
138 |
& ''' does not contain grid ''', gname(1:leng), '''' |
& ''' does not contain grid ''', gname(1:leng), '''' |
139 |
CALL print_error(msgbuf, mythid) |
CALL print_error(msgbuf, mythid) |
140 |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_DBL' |
stop 'ABNORMAL END: S/R MNC_VAR_INIT_ANY' |
141 |
10 CONTINUE |
10 CONTINUE |
142 |
|
|
143 |
C Add the variable definition |
C Add the variable definition |
295 |
|
|
296 |
C Set the attribute |
C Set the attribute |
297 |
CALL MNC_FILE_REDEF(myThid, fname) |
CALL MNC_FILE_REDEF(myThid, fname) |
|
print *, 'atype = ', atype |
|
298 |
IF (atype .EQ. 1) THEN |
IF (atype .EQ. 1) THEN |
299 |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
300 |
ELSEIF (atype .EQ. 2) THEN |
ELSEIF (atype .EQ. 2) THEN |