| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_ocean_exports.F |
717 |
BCHEADER |
read(iunit,rec=nrec,err=500) cname, cdscrip, |
|
./pkg/fizhi/update_ocean_exports.F |
730 |
BCHEADER |
read(iunit,rec=nrec,err=500) dummy112, |
|
./pkg/mnc/mnc_cw_cvars.F |
412 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, |
|
./pkg/mnc/mnc_cw_cvars.F |
415 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_FLOAT, |
|
./pkg/mnc/mnc_cw_cvars.F |
421 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
425 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name) |
|
./pkg/mnc/mnc_cw_cvars.F |
429 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
433 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'units', ia, units) |
|
./pkg/mnc/mnc_cw_cvars.F |
437 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
441 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'positive', ia, positive) |
|
./pkg/mnc/mnc_cw_cvars.F |
445 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
450 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_DOUBLE(fid, vid, |
|
./pkg/mnc/mnc_cw_cvars.F |
453 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_REAL(fid, vid, |
|
./pkg/mnc/mnc_cw_cvars.F |
458 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
46 |
MNC_CW_WRITE_CVAR |
integer i, vid, nnf, nnl, doit, err |
|
./pkg/mnc/mnc_dim.F |
145 |
MNC_DIM_INIT_ALL_CV |
err = NF_DEF_DIM(mnc_f_info(indf,2), dname(dnf:dnl), tlen, idd) |
|
./pkg/mnc/mnc_dim.F |
148 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_dim.F |
194 |
MNC_DIM_UNLIM_SIZE |
integer i,j, nf, indf, fid, unlimid, err |
|
./pkg/mnc/mnc_dim.F |
218 |
MNC_DIM_UNLIM_SIZE |
err = NF_INQ_DIMLEN(fid, unlimid, unlim_sz) |
|
./pkg/mnc/mnc_dim.F |
221 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_dim.F |
89 |
MNC_DIM_INIT_ALL_CV |
integer ntmp, idd, err, tlen |
|
./pkg/mnc/mnc_file.F |
258 |
MNC_FILE_ADD_ATTR_ANY |
integer n, nf, err, fid, ind, n1, lens |
|
./pkg/mnc/mnc_file.F |
285 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, NF_GLOBAL, s1, lens, sv) |
|
./pkg/mnc/mnc_file.F |
286 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
290 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, NF_GLOBAL, s1, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_file.F |
291 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
295 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, NF_GLOBAL, s1, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_file.F |
296 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
300 |
MNC_FILE_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, NF_GLOBAL, s1, NF_INT, len, iv) |
|
./pkg/mnc/mnc_file.F |
301 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
356 |
MNC_FILE_CLOSE |
err = NF_CLOSE(fid) |
|
./pkg/mnc/mnc_file.F |
358 |
MNC_FILE_CLOSE |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_file.F |
512 |
MNC_FILE_REDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
532 |
MNC_FILE_REDEF |
err = NF_REDEF(fid) |
|
./pkg/mnc/mnc_file.F |
533 |
MNC_FILE_REDEF |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
565 |
MNC_FILE_ENDDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
585 |
MNC_FILE_ENDDEF |
err = NF_ENDDEF(fid) |
|
./pkg/mnc/mnc_file.F |
586 |
MNC_FILE_ENDDEF |
CALL MNC_HANDLE_ERR(err, |
|
./pkg/mnc/mnc_file.F |
62 |
MNC_FILE_OPEN |
integer n, err, fid, nf |
|
./pkg/mnc/mnc_file.F |
658 |
MNC_FILE_TRY_READ |
integer i,j,k, fid, err, ndim,nvar,ngat,unlimid |
|
./pkg/mnc/mnc_file.F |
672 |
MNC_FILE_TRY_READ |
err = NF_OPEN(fname, NF_WRITE, fid) |
|
./pkg/mnc/mnc_file.F |
674 |
MNC_FILE_TRY_READ |
IF (err .NE. NF_NOERR) THEN |
|
./pkg/mnc/mnc_file.F |
675 |
MNC_FILE_TRY_READ |
ierr = err |
|
./pkg/mnc/mnc_file.F |
684 |
MNC_FILE_TRY_READ |
err = NF_INQ(fid, ndim, nvar, ngat, unlimid) |
|
./pkg/mnc/mnc_file.F |
687 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_file.F |
691 |
MNC_FILE_TRY_READ |
err = NF_INQ_DIM(fid, id, name, dlen) |
|
./pkg/mnc/mnc_file.F |
695 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_file.F |
718 |
MNC_FILE_TRY_READ |
err = NF_INQ_VAR(fid, id, name, xtype, ndv, idlist, nat) |
|
./pkg/mnc/mnc_file.F |
722 |
MNC_FILE_TRY_READ |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_file.F |
82 |
MNC_FILE_OPEN |
err = NF_CREATE(fname, NF_CLOBBER, fid) |
|
./pkg/mnc/mnc_file.F |
83 |
MNC_FILE_OPEN |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
232 |
MNC_VAR_INIT_ANY |
err = NF_DEF_VAR(fid, vname, vtype, nd, ids, vid) |
|
./pkg/mnc/mnc_var.F |
233 |
MNC_VAR_INIT_ANY |
IF ( err .NE. NF_NOERR ) THEN |
|
./pkg/mnc/mnc_var.F |
245 |
MNC_VAR_INIT_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
440 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
464 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_TEXT(fid, vid, atname, lens, cs) |
|
./pkg/mnc/mnc_var.F |
466 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_DOUBLE(fid, vid, atname, NF_DOUBLE, len, dv) |
|
./pkg/mnc/mnc_var.F |
468 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_REAL(fid, vid, atname, NF_FLOAT, len, rv) |
|
./pkg/mnc/mnc_var.F |
470 |
MNC_VAR_ADD_ATTR_ANY |
err = NF_PUT_ATT_INT(fid, vid, atname, NF_INT, len, iv) |
|
./pkg/mnc/mnc_var.F |
480 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
680 |
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 |
715 |
MNC_VAR_WRITE_ANY |
err = NF_INQ_DIMLEN(fid, did, lend) |
|
./pkg/mnc/mnc_var.F |
717 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/mnc/mnc_var.F |
728 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_DOUBLE(fid, vid, vstart, vcount, dv) |
|
./pkg/mnc/mnc_var.F |
730 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_REAL(fid, vid, vstart, vcount, rv) |
|
./pkg/mnc/mnc_var.F |
732 |
MNC_VAR_WRITE_ANY |
err = NF_PUT_VARA_INT(fid, vid, vstart, vcount, iv) |
|
./pkg/mnc/mnc_var.F |
742 |
MNC_VAR_WRITE_ANY |
CALL MNC_HANDLE_ERR(err, msgBuf, myThid) |
|
./pkg/profiles/active_file_control_profiles.F |
130 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
131 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
144 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
145 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
208 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
209 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
274 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
307 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
308 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
311 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_varnum), |
|
./pkg/profiles/active_file_control_profiles.F |
313 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
316 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,'prof_ind_glob', varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
317 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2), |
|
./pkg/profiles/active_file_control_profiles.F |
365 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum) , varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
366 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
380 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
381 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
436 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid, prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
437 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
50 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
|
./pkg/profiles/active_file_control_profiles.F |
79 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_varnum), varid1 ) |
|
./pkg/profiles/active_file_control_profiles.F |
80 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/active_file_control_profiles.F |
83 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_varnum) |
|
./pkg/profiles/active_file_control_profiles.F |
85 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
|
./pkg/profiles/cost_profiles.F |
55 |
COST_PROFILES |
integer IL, JL, err |
|
./pkg/profiles/cost_profiles.F |
74 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
|
./pkg/profiles/cost_profiles.F |
86 |
COST_PROFILES |
err = NF_OPEN(fnameequinc,NF_NOWRITE, |
|
./pkg/profiles/profiles_init_fixed.F |
206 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
210 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iPROF', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
211 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
212 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iDEPTH', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
213 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
214 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'Z', dimid ) |
|
./pkg/profiles/profiles_init_fixed.F |
216 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
|
./pkg/profiles/profiles_init_fixed.F |
232 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
233 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
235 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'depth', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
237 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
248 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
|
./pkg/profiles/profiles_init_fixed.F |
252 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a ) |
|
./pkg/profiles/profiles_init_fixed.F |
253 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b ) |
|
./pkg/profiles/profiles_init_fixed.F |
254 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lon', varid2 ) |
|
./pkg/profiles/profiles_init_fixed.F |
255 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lat', varid3 ) |
|
./pkg/profiles/profiles_init_fixed.F |
257 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
269 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XC11',varid_intp1) |
|
./pkg/profiles/profiles_init_fixed.F |
270 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YC11',varid_intp2) |
|
./pkg/profiles/profiles_init_fixed.F |
271 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XCNINJ',varid_intp11) |
|
./pkg/profiles/profiles_init_fixed.F |
272 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YCNINJ',varid_intp22) |
|
./pkg/profiles/profiles_init_fixed.F |
273 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_weights',varid_intp3) |
|
./pkg/profiles/profiles_init_fixed.F |
274 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_i',varid_intp4) |
|
./pkg/profiles/profiles_init_fixed.F |
275 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_j',varid_intp5) |
|
./pkg/profiles/profiles_init_fixed.F |
276 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
335 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
337 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
339 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
341 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
344 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
354 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp1,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
356 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp2,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
358 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp11,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
360 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp22,vec_start(2), |
|
./pkg/profiles/profiles_init_fixed.F |
367 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp3,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
369 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp4,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
371 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp5,vec_start2, |
|
./pkg/profiles/profiles_init_fixed.F |
46 |
PROFILES_INIT_FIXED |
integer IL, JL, err |
|
./pkg/profiles/profiles_init_fixed.F |
545 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_T', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
546 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
555 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_S', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
556 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
568 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_U', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
569 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
578 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_V', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
579 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
589 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ptr', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
590 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
599 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ssh', varid1 ) |
|
./pkg/profiles/profiles_init_fixed.F |
600 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_fixed.F |
643 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_fixed.F |
653 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
|
./pkg/profiles/profiles_init_ncfile.F |
29 |
PROFILES_INIT_NCFILE |
integer myThid,bi,bj,err,vecid(2), length, Zlength |
|
./pkg/profiles/profiles_init_ncfile.F |
39 |
PROFILES_INIT_NCFILE |
err = NF_CREATE(file2 , NF_CLOBBER, fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
40 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iDEPTH', Zlength ,dimid1) |
|
./pkg/profiles/profiles_init_ncfile.F |
41 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iPROF',length,dimid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
45 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,'prof_ind_glob', NF_INT, 1,vecid(2), |
|
./pkg/profiles/profiles_init_ncfile.F |
47 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_INT(fid2,varid(1),'_FillValue',NF_INT,1,0) |
|
./pkg/profiles/profiles_init_ncfile.F |
50 |
PROFILES_INIT_NCFILE |
err = NF_INQ_VARID(fid1,prof_names(num_var), varid0 ) |
|
./pkg/profiles/profiles_init_ncfile.F |
51 |
PROFILES_INIT_NCFILE |
if (err.EQ.NF_NOERR) then |
|
./pkg/profiles/profiles_init_ncfile.F |
53 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_names(num_var), NF_DOUBLE, |
|
./pkg/profiles/profiles_init_ncfile.F |
55 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue', |
|
./pkg/profiles/profiles_init_ncfile.F |
57 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_namesmask(num_var), |
|
./pkg/profiles/profiles_init_ncfile.F |
59 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue', |
|
./pkg/profiles/profiles_init_ncfile.F |
65 |
PROFILES_INIT_NCFILE |
err=NF_ENDDEF(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
66 |
PROFILES_INIT_NCFILE |
err=NF_CLOSE(fid2) |
|
./pkg/profiles/profiles_init_ncfile.F |
68 |
PROFILES_INIT_NCFILE |
err = NF_OPEN(file2, NF_WRITE , fid2) |
|
./pkg/profiles/profiles_readvector.F |
28 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
43 |
PROFILES_READVECTOR |
err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1) |
|
./pkg/profiles/profiles_readvector.F |
44 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
|
./pkg/profiles/profiles_readvector.F |
75 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(kkk), |
|
./pkg/profiles/profiles_readvector.F |
77 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
79 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(kkk) |
|
./pkg/profiles/profiles_readvector.F |
81 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
84 |
PROFILES_READVECTOR |
if (err.NE.NF_NOERR) then |
|
./eesupp/src/eeset_parms.F |
163 |
EESET_PARMS |
& err=1,IOSTAT=errIO) |
|
./eesupp/src/eeset_parms.F |
236 |
EESET_PARMS |
READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3) |
|
./pkg/diagnostics/diag_cg2d.F |
199 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
202 |
DIAG_CG2D |
err = SQRT(err) |
|
./pkg/diagnostics/diag_cg2d.F |
204 |
DIAG_CG2D |
firstResidual = err |
|
./pkg/diagnostics/diag_cg2d.F |
205 |
DIAG_CG2D |
minResidual = err |
|
./pkg/diagnostics/diag_cg2d.F |
214 |
DIAG_CG2D |
& ' iter=', it2d, ' ; resid.=', err, ' ; sumRHS=', sumRHS |
|
./pkg/diagnostics/diag_cg2d.F |
227 |
DIAG_CG2D |
IF ( err .LT. residCriter ) GOTO 11 |
|
./pkg/diagnostics/diag_cg2d.F |
308 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
309 |
DIAG_CG2D |
err = SQRT(err) |
|
./pkg/diagnostics/diag_cg2d.F |
313 |
DIAG_CG2D |
& ' diag_cg2d: iter=', it2d, ' ; resid.=', err |
|
./pkg/diagnostics/diag_cg2d.F |
318 |
DIAG_CG2D |
IF ( err .LT. residCriter ) GOTO 11 |
|
./pkg/diagnostics/diag_cg2d.F |
319 |
DIAG_CG2D |
IF ( err .LT. minResidual ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
321 |
DIAG_CG2D |
minResidual = err |
|
./pkg/diagnostics/diag_cg2d.F |
350 |
DIAG_CG2D |
lastResidual = err |
|
./pkg/diagnostics/diag_cg2d.F |
353 |
DIAG_CG2D |
IF ( err .GT. minResidual ) THEN |
|
./pkg/diagnostics/diag_cg2d.F |
79 |
DIAG_CG2D |
_RL err, errTile(nSx,nSy) |
|
./lsopt/instore.F |
32 |
INSTORE |
read( itape, *, end=800, err=900 ) n, fc, gnorm0, |