139 |
nd = 0 |
nd = 0 |
140 |
DO k = is,ie |
DO k = is,ie |
141 |
nd = nd + 1 |
nd = nd + 1 |
142 |
ids(nd) = mnc_fg_ids(indf,k) |
ids(nd) = mnc_d_ids(mnc_fd_ind(indf,k)) |
143 |
ENDDO |
ENDDO |
144 |
GOTO 10 |
GOTO 10 |
145 |
ENDIF |
ENDIF |
162 |
mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
163 |
nv = mnc_fv_ids(indf,1) |
nv = mnc_fv_ids(indf,1) |
164 |
i = 2 + nv*3 |
i = 2 + nv*3 |
165 |
j = i + 1 |
mnc_fv_ids(indf,i) = indv |
166 |
k = i + 2 |
mnc_fv_ids(indf,i+1) = vid |
167 |
mnc_fv_ids(indf,i) = indv |
mnc_fv_ids(indf,i+2) = ind_g_finfo |
|
mnc_fv_ids(indf,j) = vid |
|
|
mnc_fv_ids(indf,k) = ind_g_finfo |
|
168 |
mnc_fv_ids(indf,1) = nv + 1 |
mnc_fv_ids(indf,1) = nv + 1 |
169 |
|
|
170 |
C Add the units |
C Add the units |
499 |
C Check for the unlimited dimension |
C Check for the unlimited dimension |
500 |
j = mnc_d_size( mnc_fd_ind(indf,de) ) |
j = mnc_d_size( mnc_fd_ind(indf,de) ) |
501 |
IF (j .LT. 1) THEN |
IF (j .LT. 1) THEN |
502 |
did = mnc_fg_ids(indf,de) |
did = mnc_d_ids( mnc_fd_ind(indf,de) ) |
503 |
err = NF_INQ_DIMLEN(fid, did, lend) |
err = NF_INQ_DIMLEN(fid, did, lend) |
504 |
write(msgbuf,'(a)') 'reading current length of unlimited dim' |
write(msgbuf,'(a)') 'reading current length of unlimited dim' |
505 |
CALL MNC_HANDLE_ERR(myThid, err, msgbuf) |
CALL MNC_HANDLE_ERR(myThid, err, msgbuf) |