8 |
SUBROUTINE MNC_CW_RX_W_YY( |
SUBROUTINE MNC_CW_RX_W_YY( |
9 |
I fbname, bi,bj, |
I fbname, bi,bj, |
10 |
I vtype, |
I vtype, |
11 |
I indu, |
C I indu, |
12 |
I var, |
I var, |
13 |
I myThid ) |
I myThid ) |
14 |
|
|
35 |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
36 |
integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9) |
integer p(9),s(9),e(9), dimnc(9), vstart(9),vcount(9), udo(9) |
37 |
integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7 |
integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7 |
38 |
|
integer indfg, fg1,fg2 |
39 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
40 |
character*(MNC_MAX_CHAR) fname |
character*(MNC_MAX_CHAR) fname |
41 |
|
|
54 |
C Only do I/O if I am the master thread |
C Only do I/O if I am the master thread |
55 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
56 |
|
|
57 |
|
C Get the current index for the unlimited dimension from the file |
58 |
|
C group (or base) name |
59 |
|
fg1 = IFNBLNK(fbname) |
60 |
|
fg2 = ILNBLNK(fbname) |
61 |
|
CALL MNC_GET_IND(MNC_MAX_ID, fbname, mnc_cw_fgnm, indfg, myThid) |
62 |
|
IF (indfg .LT. 1) THEN |
63 |
|
write(msgbuf,'(3a)') |
64 |
|
& 'MNC_CW_RX_W_YY ERROR: file group name ''', |
65 |
|
& fbname(fg1:fg2), ''' is not defined' |
66 |
|
CALL print_error(msgbuf, mythid) |
67 |
|
STOP 'ABNORMAL END: S/R MNC_CW_RX_W_YY' |
68 |
|
ENDIF |
69 |
|
indu = mnc_cw_fgud(indfg) |
70 |
|
|
71 |
C Check that the Variable Type exists |
C Check that the Variable Type exists |
72 |
nvf = IFNBLNK(vtype) |
nvf = IFNBLNK(vtype) |
73 |
nvl = ILNBLNK(vtype) |
nvl = ILNBLNK(vtype) |
322 |
SUBROUTINE MNC_CW_RX_R_YY( |
SUBROUTINE MNC_CW_RX_R_YY( |
323 |
I fbname, bi,bj, |
I fbname, bi,bj, |
324 |
I vtype, |
I vtype, |
325 |
I indu, |
C I indu, |
326 |
I var, |
I var, |
327 |
I myThid ) |
I myThid ) |
328 |
|
|
348 |
integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv |
integer bis,bie, bjs,bje, uniq_tnum, nfname, fid, idv |
349 |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
350 |
integer ind_fv_ids, ind_vt, ierr, atype, alen |
integer ind_fv_ids, ind_vt, ierr, atype, alen |
351 |
integer f_sNx,f_sNy, ires |
integer f_sNx,f_sNy |
352 |
integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9) |
integer p(9),s(9),e(9), vstart(9),vcount(9), udo(9) |
353 |
integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7 |
integer j1,j2,j3,j4,j5,j6,j7, k1,k2,k3,k4,k5,k6,k7 |
354 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
355 |
character*(MNC_MAX_CHAR) fname |
character*(MNC_MAX_CHAR) fname |
356 |
|
integer indfg, fg1,fg2 |
357 |
|
|
358 |
C Temporary storage for the simultaneous type conversion and |
C Temporary storage for the simultaneous type conversion and |
359 |
C re-shaping before passing to NetCDF |
C re-shaping before passing to NetCDF |
370 |
C Only do I/O if I am the master thread |
C Only do I/O if I am the master thread |
371 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
372 |
|
|
373 |
|
C Get the current index for the unlimited dimension from the file |
374 |
|
C group (or base) name |
375 |
|
fg1 = IFNBLNK(fbname) |
376 |
|
fg2 = ILNBLNK(fbname) |
377 |
|
CALL MNC_GET_IND(MNC_MAX_ID, fbname, mnc_cw_fgnm, indfg, myThid) |
378 |
|
IF (indfg .LT. 1) THEN |
379 |
|
write(msgbuf,'(3a)') |
380 |
|
& 'MNC_CW_RX_W_YY ERROR: file group name ''', |
381 |
|
& fbname(fg1:fg2), ''' is not defined' |
382 |
|
CALL print_error(msgbuf, mythid) |
383 |
|
STOP 'ABNORMAL END: S/R MNC_CW_RX_W_YY' |
384 |
|
ENDIF |
385 |
|
indu = mnc_cw_fgud(indfg) |
386 |
|
|
387 |
C Check that the Variable Type exists |
C Check that the Variable Type exists |
388 |
nvf = IFNBLNK(vtype) |
nvf = IFNBLNK(vtype) |
389 |
nvl = ILNBLNK(vtype) |
nvl = ILNBLNK(vtype) |