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, |
|
C I indu, |
|
11 |
I var, |
I var, |
12 |
I myThid ) |
I myThid ) |
13 |
|
|
34 |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
integer ndim, indf, err, lbi,lbj, bidim,bjdim, unlim_sz, kr |
35 |
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) |
36 |
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 |
37 |
integer indfg, fg1,fg2 |
integer indfg, fg1,fg2, npath |
38 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
39 |
character*(MNC_MAX_CHAR) fname |
character*(MNC_MAX_CHAR) fname |
40 |
|
character*(MNC_MAX_CHAR) path_fname |
41 |
|
|
42 |
C Temporary storage for the simultaneous type conversion and |
C Temporary storage for the simultaneous type conversion and |
43 |
C re-shaping before passing to NetCDF |
C re-shaping before passing to NetCDF |
109 |
write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc' |
write(fname((ntot+1):(ntot+9)),'(i6.6,a3)') uniq_tnum, '.nc' |
110 |
nfname = ntot+9 |
nfname = ntot+9 |
111 |
|
|
112 |
|
C Add the path to the file name |
113 |
|
c path_fname(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR) |
114 |
|
c npath = ILNBLNK(mnc_out_path) |
115 |
|
c path_fname(1:npath) = mnc_out_path(1:npath) |
116 |
|
c path_fname((npath+1):(npath+1+nfname)) = fname(1:nfname) |
117 |
|
c fname(1:MNC_MAX_CHAR) = path_fname(1:MNC_MAX_CHAR) |
118 |
|
|
119 |
C Append to an existing or create a new file |
C Append to an existing or create a new file |
120 |
CALL MNC_CW_FILE_AORC(fname, indf, myThid) |
CALL MNC_CW_FILE_AORC(fname, indf, myThid) |
121 |
fid = mnc_f_info(indf,2) |
fid = mnc_f_info(indf,2) |
329 |
SUBROUTINE MNC_CW_RX_R_YY( |
SUBROUTINE MNC_CW_RX_R_YY( |
330 |
I fbname, bi,bj, |
I fbname, bi,bj, |
331 |
I vtype, |
I vtype, |
|
C I indu, |
|
332 |
I var, |
I var, |
333 |
I myThid ) |
I myThid ) |
334 |
|
|