| File |
Line number |
Procedure |
Code |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
217 |
INI_CURVILINEAR_GRID |
fid=fopen('fort.10','r') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
219 |
INI_CURVILINEAR_GRID |
xc=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
220 |
INI_CURVILINEAR_GRID |
yc=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
221 |
INI_CURVILINEAR_GRID |
dxf=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
222 |
INI_CURVILINEAR_GRID |
dyf=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
223 |
INI_CURVILINEAR_GRID |
ra=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
224 |
INI_CURVILINEAR_GRID |
xg=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
225 |
INI_CURVILINEAR_GRID |
yg=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
226 |
INI_CURVILINEAR_GRID |
dxv=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
227 |
INI_CURVILINEAR_GRID |
dyu=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
228 |
INI_CURVILINEAR_GRID |
raz=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
229 |
INI_CURVILINEAR_GRID |
dxc=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
230 |
INI_CURVILINEAR_GRID |
dyc=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
231 |
INI_CURVILINEAR_GRID |
raw=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
232 |
INI_CURVILINEAR_GRID |
ras=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
233 |
INI_CURVILINEAR_GRID |
dxg=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
234 |
INI_CURVILINEAR_GRID |
dyg=f77read(fid,n+2*o n+2*o 6,'real*8') |
|
./verification/global_ocean.cubed32x32x30/code/ini_curvilinear_grid.F |
235 |
INI_CURVILINEAR_GRID |
fclose(fid) |
|
./pkg/mnc/mnc_utils.F |
184 |
MNC_GET_FVINDS |
INTEGER myThid, fid, indf, ind_fv_ids |
|
./pkg/mnc/mnc_utils.F |
204 |
MNC_GET_FVINDS |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
118 |
MNC_VAR_INIT_ANY |
integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
140 |
MNC_VAR_INIT_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
204 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/mnc/mnc_var.F |
403 |
MNC_VAR_ADD_ATTR_ANY |
integer n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
424 |
MNC_VAR_ADD_ATTR_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
430 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
|
./pkg/mnc/mnc_var.F |
432 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, vid, atname, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_var.F |
434 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, vid, atname, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_var.F |
436 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, vid, atname, NF_INT, len, iv) |
|
./pkg/mnc/mnc_var.F |
591 |
MNC_VAR_WRITE_ANY |
integer i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
608 |
MNC_VAR_WRITE_ANY |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_var.F |
626 |
MNC_VAR_WRITE_ANY |
err = NF_INQ_DIMLEN(fid, did, lend) |
|
./pkg/mnc/mnc_var.F |
639 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_DOUBLE(fid, vid, vstart, vcount, dv) |
|
./pkg/mnc/mnc_var.F |
641 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_REAL(fid, vid, vstart, vcount, rv) |
|
./pkg/mnc/mnc_var.F |
643 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_INT(fid, vid, vstart, vcount, iv) |
|
./pkg/mnc/mnc_dim.F |
193 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
209 |
MNC_DIM_UNLIM_SIZE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_dim.F |
217 |
MNC_DIM_UNLIM_SIZE |
err = NF_INQ_DIMLEN(fid, unlimid, unlim_sz) |
|
./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 |
94 |
MNC_GRID_INIT_ALL |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_cw_cvars.F |
14 |
MNC_CW_WRITE_CVAR |
I fid, |
|
./pkg/mnc/mnc_cw_cvars.F |
188 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, |
|
./pkg/mnc/mnc_cw_cvars.F |
194 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_DOUBLE(fid, vid, |
|
./pkg/mnc/mnc_cw_cvars.F |
42 |
MNC_CW_WRITE_CVAR |
integer fid, did, bi,bj |
|
./pkg/mnc/mnc_file.F |
102 |
MNC_FILE_OPEN |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
257 |
MNC_FILE_ADD_ATTR_ANY |
integer n, err, fid, ind, n1, lens |
|
./pkg/mnc/mnc_file.F |
272 |
MNC_FILE_ADD_ATTR_ANY |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
283 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv) |
|
./pkg/mnc/mnc_file.F |
288 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_file.F |
293 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_file.F |
298 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv) |
|
./pkg/mnc/mnc_file.F |
337 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
353 |
MNC_FILE_CLOSE |
fid = mnc_f_info(indf,2) |
|
./pkg/mnc/mnc_file.F |
354 |
MNC_FILE_CLOSE |
err = NF_CLOSE(fid) |
|
./pkg/mnc/mnc_file.F |
503 |
MNC_FILE_REDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
519 |
MNC_FILE_REDEF |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
523 |
MNC_FILE_REDEF |
err = NF_REDEF(fid) |
|
./pkg/mnc/mnc_file.F |
556 |
MNC_FILE_ENDDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
572 |
MNC_FILE_ENDDEF |
fid = mnc_f_info(ind,2) |
|
./pkg/mnc/mnc_file.F |
576 |
MNC_FILE_ENDDEF |
err = NF_ENDDEF(fid) |
|
./pkg/mnc/mnc_file.F |
62 |
MNC_FILE_OPEN |
integer n, err, fid, nf |
|
./pkg/mnc/mnc_file.F |
649 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
|
./pkg/mnc/mnc_file.F |
663 |
MNC_FILE_TRY_READ |
err = NF_OPEN(fname, NF_WRITE, fid) |
|
./pkg/mnc/mnc_file.F |
671 |
MNC_FILE_TRY_READ |
mnc_f_info(indf,2) = fid |
|
./pkg/mnc/mnc_file.F |
674 |
MNC_FILE_TRY_READ |
err = NF_INQ(fid, ndim, nvar, ngat, unlimid) |
|
./pkg/mnc/mnc_file.F |
681 |
MNC_FILE_TRY_READ |
err = NF_INQ_DIM(fid, id, name, dlen) |
|
./pkg/mnc/mnc_file.F |
708 |
MNC_FILE_TRY_READ |
err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat) |
|
./pkg/mnc/mnc_file.F |
82 |
MNC_FILE_OPEN |
err = NF_CREATE(fname, NF_CLOBBER, fid) |