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 |
413 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_DOUBLE, |
./pkg/mnc/mnc_cw_cvars.F |
416 |
MNC_CW_WRITE_CVAR |
err = NF_DEF_VAR(fid, cvname, NF_FLOAT, |
./pkg/mnc/mnc_cw_cvars.F |
422 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
426 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name) |
./pkg/mnc/mnc_cw_cvars.F |
430 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
434 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'units', ia, units) |
./pkg/mnc/mnc_cw_cvars.F |
438 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
442 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_ATT_TEXT(fid, vid, 'positive', ia, positive) |
./pkg/mnc/mnc_cw_cvars.F |
446 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
451 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_DOUBLE(fid, vid, |
./pkg/mnc/mnc_cw_cvars.F |
454 |
MNC_CW_WRITE_CVAR |
err = NF_PUT_VARA_REAL(fid, vid, |
./pkg/mnc/mnc_cw_cvars.F |
459 |
MNC_CW_WRITE_CVAR |
CALL MNC_HANDLE_ERR(err, msgbuf, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
47 |
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) |
./model/src/cg2d.F |
214 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
./model/src/cg2d.F |
217 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d.F |
220 |
CG2D |
err = SQRT(err) |
./model/src/cg2d.F |
222 |
CG2D |
actualResidual = err |
./model/src/cg2d.F |
238 |
CG2D |
IF ( err .LT. cg2dTolerance ) GOTO 11 |
./model/src/cg2d.F |
375 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, err, 0, 0, myThid) |
./model/src/cg2d.F |
377 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d.F |
379 |
CG2D |
err = SQRT(err) |
./model/src/cg2d.F |
381 |
CG2D |
actualResidual = err |
./model/src/cg2d.F |
392 |
CG2D |
IF ( err .LT. cg2dTolerance ) GOTO 11 |
./model/src/cg2d.F |
94 |
CG2D |
_RL err, errTile(nSx,nSy) |
./model/src/cg2d_nsa.F |
105 |
CG2D_NSA |
_RL err |
./model/src/cg2d_nsa.F |
215 |
CG2D_NSA |
err = 0. _d 0 |
./model/src/cg2d_nsa.F |
260 |
CG2D_NSA |
err = SQRT(err_sq) |
./model/src/cg2d_nsa.F |
262 |
CG2D_NSA |
err = 0. |
./model/src/cg2d_nsa.F |
265 |
CG2D_NSA |
actualResidual = err |
./model/src/cg2d_nsa.F |
411 |
CG2D_NSA |
err = 0. _d 0 |
./model/src/cg2d_nsa.F |
432 |
CG2D_NSA |
err = SQRT(err_sq) |
./model/src/cg2d_nsa.F |
434 |
CG2D_NSA |
err = 0. |
./model/src/cg2d_nsa.F |
437 |
CG2D_NSA |
actualResidual = err |
./model/src/cg2d_sr.F |
151 |
CG2D_SR |
err = 0. _d 0 |
./model/src/cg2d_sr.F |
185 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg2d_sr.F |
187 |
CG2D_SR |
err = SQRT(err) |
./model/src/cg2d_sr.F |
189 |
CG2D_SR |
actualResidual = err |
./model/src/cg2d_sr.F |
199 |
CG2D_SR |
IF ( err .LT. cg2dTolerance ) GOTO 11 |
./model/src/cg2d_sr.F |
308 |
CG2D_SR |
err = 0. _d 0 |
./model/src/cg2d_sr.F |
353 |
CG2D_SR |
err = sumPhi(3,1,1) |
./model/src/cg2d_sr.F |
355 |
CG2D_SR |
err = SQRT(err) |
./model/src/cg2d_sr.F |
357 |
CG2D_SR |
actualResidual = err |
./model/src/cg2d_sr.F |
368 |
CG2D_SR |
IF ( err .LT. cg2dTolerance ) GOTO 11 |
./model/src/cg2d_sr.F |
99 |
CG2D_SR |
_RL err, errTile(nSx,nSy) |
./model/src/cg3d.F |
101 |
CG3D |
_RL err, errTile(nSx,nSy) |
./model/src/cg3d.F |
169 |
CG3D |
err = 0. _d 0 |
./model/src/cg3d.F |
242 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg3d.F |
256 |
CG3D |
actualResidual = SQRT(err) |
./model/src/cg3d.F |
490 |
CG3D |
err = 0. _d 0 |
./model/src/cg3d.F |
512 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( errTile, err, myThid ) |
./model/src/cg3d.F |
513 |
CG3D |
err = SQRT(err) |
./model/src/cg3d.F |
515 |
CG3D |
actualResidual = err |
./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 |
44 |
COST_PROFILES |
integer bi,bj,iG,jG,err,fid |
./pkg/profiles/profiles_init_fixed.F |
117 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj)) |
./pkg/profiles/profiles_init_fixed.F |
121 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iPROF', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
122 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) ) |
./pkg/profiles/profiles_init_fixed.F |
123 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'iDEPTH', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
124 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
125 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMID(fid,'Z', dimid ) |
./pkg/profiles/profiles_init_fixed.F |
127 |
PROFILES_INIT_FIXED |
err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) ) |
./pkg/profiles/profiles_init_fixed.F |
136 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_depth', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
137 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
139 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'depth', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
141 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
150 |
PROFILES_INIT_FIXED |
err = NF_GET_VAR1_DOUBLE(fid,varid1a,k, |
./pkg/profiles/profiles_init_fixed.F |
154 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_YYYYMMDD', varid1a ) |
./pkg/profiles/profiles_init_fixed.F |
155 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_HHMMSS', varid1b ) |
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lon', varid2 ) |
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_lat', varid3 ) |
./pkg/profiles/profiles_init_fixed.F |
159 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
168 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XC11',varid_intp1) |
./pkg/profiles/profiles_init_fixed.F |
169 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YC11',varid_intp2) |
./pkg/profiles/profiles_init_fixed.F |
170 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_XCNINJ',varid_intp11) |
./pkg/profiles/profiles_init_fixed.F |
171 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_YCNINJ',varid_intp22) |
./pkg/profiles/profiles_init_fixed.F |
172 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_weights',varid_intp3) |
./pkg/profiles/profiles_init_fixed.F |
173 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_i',varid_intp4) |
./pkg/profiles/profiles_init_fixed.F |
174 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_interp_j',varid_intp5) |
./pkg/profiles/profiles_init_fixed.F |
175 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
228 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1a,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
230 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid1b,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
232 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid2,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
234 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid3,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
237 |
PROFILES_INIT_FIXED |
if (err.NE.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
244 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp1,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
246 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp2,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
248 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp11,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
250 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp22,vec_start(2), |
./pkg/profiles/profiles_init_fixed.F |
257 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp3,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
259 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp4,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
261 |
PROFILES_INIT_FIXED |
err = NF_GET_VARA_DOUBLE(fid,varid_intp5,vec_start2, |
./pkg/profiles/profiles_init_fixed.F |
420 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_T', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
421 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
42 |
PROFILES_INIT_FIXED |
integer IL, err |
./pkg/profiles/profiles_init_fixed.F |
430 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_S', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
431 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
441 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_U', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
442 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
451 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_V', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
452 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
462 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ptr', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
463 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
472 |
PROFILES_INIT_FIXED |
err = NF_INQ_VARID(fid,'prof_ssh', varid1 ) |
./pkg/profiles/profiles_init_fixed.F |
473 |
PROFILES_INIT_FIXED |
if (err.EQ.NF_NOERR) then |
./pkg/profiles/profiles_init_fixed.F |
510 |
PROFILES_INIT_FIXED |
err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj)) |
./pkg/profiles/profiles_init_fixed.F |
511 |
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 |
135 |
EESET_PARMS |
& err=1,IOSTAT=errIO) |
./eesupp/src/eeset_parms.F |
190 |
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, |