| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_utils.F |
100 |
MNC_GET_IND |
IF ( nf .EQ. n ) THEN |
|
./pkg/mnc/mnc_utils.F |
81 |
MNC_GET_IND |
integer n, i, nf, ind, lenm |
|
./pkg/mnc/mnc_utils.F |
99 |
MNC_GET_IND |
nf = ILNBLNK( name_list(i) ) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
132 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
133 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
135 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
136 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
137 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'saFac',saFac,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
140 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
142 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
143 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
144 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
145 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
146 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
147 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
148 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
149 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
150 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
151 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
152 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
153 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
156 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
157 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
158 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
159 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
160 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
35 |
MNC_CW_WRITE_GRID_INFO |
integer nf,nl |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
40 |
MNC_CW_WRITE_GRID_INFO |
nf = IFNBLNK(bfname) |
|
./pkg/mnc/mnc_dim.F |
103 |
MNC_DIM_INIT_ALL_CV |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_dim.F |
120 |
MNC_DIM_INIT_ALL_CV |
& fname(1:nf), ''' and its size cannot be changed' |
|
./pkg/mnc/mnc_dim.F |
146 |
MNC_DIM_INIT_ALL_CV |
& 'dim ''', dname(dnf:dnl), ''' in file ''', fname(1:nf) |
|
./pkg/mnc/mnc_dim.F |
193 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
199 |
MNC_DIM_UNLIM_SIZE |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_dim.F |
204 |
MNC_DIM_UNLIM_SIZE |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_dim.F |
219 |
MNC_DIM_UNLIM_SIZE |
& 'determine unlimited dim size in file ''', fname(1:nf) |
|
./pkg/mnc/mnc_dim.F |
88 |
MNC_DIM_INIT_ALL_CV |
integer i,j, indf,indd, n,nf, dnf,dnl |
|
./pkg/mnc/mnc_dim.F |
95 |
MNC_DIM_INIT_ALL_CV |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_grid.F |
196 |
MNC_GRID_INIT_ALL |
& fname(1:nf), '''' |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_grid.F |
84 |
MNC_GRID_INIT_ALL |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_grid.F |
85 |
MNC_GRID_INIT_ALL |
IF (nf .GT. MNC_MAX_CHAR) nf = MNC_MAX_CHAR |
|
./pkg/mnc/mnc_grid.F |
86 |
MNC_GRID_INIT_ALL |
file_name(1:nf) = fname(1:nf) |
|
./pkg/mnc/mnc_grid.F |
89 |
MNC_GRID_INIT_ALL |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', file_name(1:nf), |
|
./pkg/mnc/mnc_file.F |
337 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
343 |
MNC_FILE_CLOSE |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
348 |
MNC_FILE_CLOSE |
write(msgbuf,'(3a)') 'MNC Warning: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_file.F |
355 |
MNC_FILE_CLOSE |
write(msgbuf,'(3a)') ' cannot close file ''', fname(1:nf), '''' |
|
./pkg/mnc/mnc_file.F |
62 |
MNC_FILE_OPEN |
integer n, err, fid, nf |
|
./pkg/mnc/mnc_file.F |
69 |
MNC_FILE_OPEN |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
72 |
MNC_FILE_OPEN |
write(msgbuf,'(3a)') 'MNC_FILE_OPEN ERROR: ''', fname(1:nf), |