| 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 |
40 |
PROFILES_READVECTOR |
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then |
|
./pkg/profiles/profiles_readvector.F |
41 |
PROFILES_READVECTOR |
err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1) |
|
./pkg/profiles/profiles_readvector.F |
42 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
|
./pkg/profiles/profiles_readvector.F |
44 |
PROFILES_READVECTOR |
if (profiles_curfile_buff(bi,bj).NE.fNb) then |
|
./pkg/profiles/profiles_readvector.F |
59 |
PROFILES_READVECTOR |
& profiles_maxind_buff(bi,bj),irec,profNo(fNb,bi,bj),tmpprofno |
|
./pkg/profiles/profiles_readvector.F |
68 |
PROFILES_READVECTOR |
if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then |
|
./pkg/profiles/profiles_readvector.F |
69 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(kkk), |
|
./pkg/profiles/profiles_readvector.F |
71 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
73 |
PROFILES_READVECTOR |
err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(kkk) |
|
./pkg/profiles/profiles_readvector.F |
75 |
PROFILES_READVECTOR |
err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start, |
|
./pkg/profiles/profiles_readvector.F |
93 |
PROFILES_READVECTOR |
profiles_curfile_buff(bi,bj)=fNb |