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 |
132 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
134 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
147 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
149 |
ACTIVE_READ_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
212 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
214 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
280 |
ACTIVE_WRITE_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
./pkg/profiles/active_file_control_profiles.F |
313 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
315 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
318 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_num_file, |
./pkg/profiles/active_file_control_profiles.F |
320 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
323 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,'prof_ind_glob', varid1 ) |
./pkg/profiles/active_file_control_profiles.F |
324 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VAR1_INT(fid, varid1 , vec_start(2), |
./pkg/profiles/active_file_control_profiles.F |
372 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
374 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
388 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
390 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
445 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_INQ_VARID(fid, prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
447 |
ACTIVE_WRITE_PROFILE_RL |
err = NF_PUT_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
51 |
ACTIVE_READ_PROFILE_RL |
integer err, fid, varid1 , vec_start(2), vec_count(2) |
./pkg/profiles/active_file_control_profiles.F |
80 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_names(active_num_file,active_varnum), |
./pkg/profiles/active_file_control_profiles.F |
82 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/active_file_control_profiles.F |
85 |
ACTIVE_READ_PROFILE_RL |
err = NF_INQ_VARID(fid,prof_namesmask(active_num_file, |
./pkg/profiles/active_file_control_profiles.F |
87 |
ACTIVE_READ_PROFILE_RL |
err = NF_GET_VARA_DOUBLE(fid, varid1 , vec_start, vec_count, |
./pkg/profiles/cost_profiles.F |
138 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
./pkg/profiles/cost_profiles.F |
150 |
COST_PROFILES |
err = NF_OPEN(fnameequinc,NF_NOWRITE, |
./pkg/profiles/cost_profiles.F |
417 |
COST_PROFILES |
err = NF_CLOSE(fidforward(num_file,bi,bj)) |
./pkg/profiles/cost_profiles.F |
429 |
COST_PROFILES |
err = NF_OPEN(fnameequinc,NF_NOWRITE, |
./pkg/profiles/cost_profiles.F |
54 |
COST_PROFILES |
integer IL, JL, err |
./pkg/profiles/profiles_init_fixed.F |
188 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
./pkg/profiles/profiles_init_fixed.F |
192 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iPROF', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
193 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
./pkg/profiles/profiles_init_fixed.F |
194 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iDEPTH', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
195 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
196 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'Z', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
198 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
./pkg/profiles/profiles_init_fixed.F |
199 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iINTERP', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
200 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
201 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, iINTERP ) |
./pkg/profiles/profiles_init_fixed.F |
223 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_depth', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
224 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
226 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'depth', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
228 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
239 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
./pkg/profiles/profiles_init_fixed.F |
243 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
244 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b ) |
./pkg/profiles/profiles_init_fixed.F |
245 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lon', varid2 ) |
./pkg/profiles/profiles_init_fixed.F |
246 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lat', varid3 ) |
./pkg/profiles/profiles_init_fixed.F |
248 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_bin_id_a', varid4 ) |
./pkg/profiles/profiles_init_fixed.F |
251 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
262 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XC11',varid_intp1) |
./pkg/profiles/profiles_init_fixed.F |
263 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YC11',varid_intp2) |
./pkg/profiles/profiles_init_fixed.F |
264 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XCNINJ',varid_intp11) |
./pkg/profiles/profiles_init_fixed.F |
265 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YCNINJ',varid_intp22) |
./pkg/profiles/profiles_init_fixed.F |
266 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_weights',varid_intp3) |
./pkg/profiles/profiles_init_fixed.F |
267 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_i',varid_intp4) |
./pkg/profiles/profiles_init_fixed.F |
268 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_j',varid_intp5) |
./pkg/profiles/profiles_init_fixed.F |
269 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
326 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
328 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
330 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
332 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
335 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid4,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
339 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
349 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp1,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
351 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp2,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
353 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp11,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
355 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp22,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
362 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp3,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
364 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp4,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
366 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp5,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
58 |
PROFILES_INIT_FIXED |
integer IL, JL, KL, err |
./pkg/profiles/profiles_init_fixed.F |
631 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,prof_names(num_file,k)(1:JL), varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
632 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
689 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
./pkg/profiles/profiles_init_fixed.F |
699 |
PROFILES_INIT_FIXED |
err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj)) |
./pkg/profiles/profiles_init_ncfile.F |
30 |
PROFILES_INIT_NCFILE |
integer myThid,bi,bj,err,vecid(2), length, Zlength |
./pkg/profiles/profiles_init_ncfile.F |
40 |
PROFILES_INIT_NCFILE |
err = NF_CREATE(file2 , NF_CLOBBER, fid2) |
./pkg/profiles/profiles_init_ncfile.F |
41 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iDEPTH', Zlength ,dimid1) |
./pkg/profiles/profiles_init_ncfile.F |
42 |
PROFILES_INIT_NCFILE |
err = NF_DEF_DIM(fid2,'iPROF',length,dimid2) |
./pkg/profiles/profiles_init_ncfile.F |
46 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,'prof_ind_glob', NF_INT, 1,vecid(2), |
./pkg/profiles/profiles_init_ncfile.F |
48 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_INT(fid2,varid(1),'_FillValue',NF_INT,1,0) |
./pkg/profiles/profiles_init_ncfile.F |
51 |
PROFILES_INIT_NCFILE |
err = NF_INQ_VARID(fid1,prof_names(num_file,num_var), varid0 ) |
./pkg/profiles/profiles_init_ncfile.F |
52 |
PROFILES_INIT_NCFILE |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_ncfile.F |
54 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_names(num_file,num_var), NF_DOUBLE, |
./pkg/profiles/profiles_init_ncfile.F |
56 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue', |
./pkg/profiles/profiles_init_ncfile.F |
58 |
PROFILES_INIT_NCFILE |
err = NF_DEF_VAR (fid2,prof_namesmask(num_file,num_var), |
./pkg/profiles/profiles_init_ncfile.F |
60 |
PROFILES_INIT_NCFILE |
err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue', |
./pkg/profiles/profiles_init_ncfile.F |
66 |
PROFILES_INIT_NCFILE |
err=NF_ENDDEF(fid2) |
./pkg/profiles/profiles_init_ncfile.F |
67 |
PROFILES_INIT_NCFILE |
err=NF_CLOSE(fid2) |
./pkg/profiles/profiles_init_ncfile.F |
69 |
PROFILES_INIT_NCFILE |
err = NF_OPEN(file2, NF_WRITE , fid2) |
./pkg/profiles/profiles_readvector.F |
30 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
./pkg/profiles/profiles_readvector.F |
48 |
PROFILES_READVECTOR |
err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1) |
./pkg/profiles/profiles_readvector.F |
49 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
./pkg/profiles/profiles_readvector.F |
84 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(fNb,kkk), |
./pkg/profiles/profiles_readvector.F |
86 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
./pkg/profiles/profiles_readvector.F |
88 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(fNb,kkk) |
./pkg/profiles/profiles_readvector.F |
90 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
./pkg/profiles/profiles_readvector.F |
93 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesclim(fNb,kkk) |
./pkg/profiles/profiles_readvector.F |
95 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
./pkg/profiles/profiles_readvector.F |
99 |
PROFILES_READVECTOR |
if (err.NE.NF_NOERR) then |
./eesupp/src/eeset_parms.F |
170 |
EESET_PARMS |
& err=1,IOSTAT=errIO) |
./eesupp/src/eeset_parms.F |
245 |
EESET_PARMS |
READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3) |
./lsopt/instore.F |
32 |
INSTORE |
read( itape, *, end=800, err=900 ) n, fc, gnorm0, |
./pkg/diagnostics/diag_cg2d.F |
200 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./pkg/diagnostics/diag_cg2d.F |
203 |
DIAG_CG2D |
err = SQRT(err) |
./pkg/diagnostics/diag_cg2d.F |
205 |
DIAG_CG2D |
firstResidual = err |
./pkg/diagnostics/diag_cg2d.F |
206 |
DIAG_CG2D |
minResidual = err |
./pkg/diagnostics/diag_cg2d.F |
215 |
DIAG_CG2D |
& ' iter=', it2d, ' ; resid.=', err, ' ; sumRHS=', sumRHS |
./pkg/diagnostics/diag_cg2d.F |
228 |
DIAG_CG2D |
IF ( err .LT. residCriter ) GOTO 11 |
./pkg/diagnostics/diag_cg2d.F |
309 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./pkg/diagnostics/diag_cg2d.F |
310 |
DIAG_CG2D |
err = SQRT(err) |
./pkg/diagnostics/diag_cg2d.F |
314 |
DIAG_CG2D |
& ' diag_cg2d: iter=', it2d, ' ; resid.=', err |
./pkg/diagnostics/diag_cg2d.F |
319 |
DIAG_CG2D |
IF ( err .LT. residCriter ) GOTO 11 |
./pkg/diagnostics/diag_cg2d.F |
320 |
DIAG_CG2D |
IF ( err .LT. minResidual ) THEN |
./pkg/diagnostics/diag_cg2d.F |
322 |
DIAG_CG2D |
minResidual = err |
./pkg/diagnostics/diag_cg2d.F |
351 |
DIAG_CG2D |
lastResidual = err |
./pkg/diagnostics/diag_cg2d.F |
354 |
DIAG_CG2D |
IF ( err .GT. minResidual ) THEN |
./pkg/diagnostics/diag_cg2d.F |
82 |
DIAG_CG2D |
_RL err, errTile(nSx,nSy) |