| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_readvector.F |
118 |
PROFILES_READVECTOR |
profiles_curfile_buff(bi,bj)=fNb |
|
./pkg/profiles/profiles_readvector.F |
12 |
PROFILES_READVECTOR |
SUBROUTINE PROFILES_READVECTOR(fNb, vNb, irec, |
|
./pkg/profiles/profiles_readvector.F |
30 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
47 |
PROFILES_READVECTOR |
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then |
|
./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 |
51 |
PROFILES_READVECTOR |
if (profiles_curfile_buff(bi,bj).NE.fNb) then |
|
./pkg/profiles/profiles_readvector.F |
70 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
83 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./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, |