| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_readvector.F |
12 |
PROFILES_READVECTOR |
SUBROUTINE PROFILES_READVECTOR(fNb, vNb, irec, |
|
./pkg/profiles/profiles_readvector.F |
28 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
42 |
PROFILES_READVECTOR |
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then |
|
./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 |
46 |
PROFILES_READVECTOR |
if (profiles_curfile_buff(bi,bj).NE.fNb) then |
|
./pkg/profiles/profiles_readvector.F |
63 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
74 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./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 |
99 |
PROFILES_READVECTOR |
profiles_curfile_buff(bi,bj)=fNb |