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 |