File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_readvector.F |
30 |
PROFILES_READVECTOR |
integer irec, fNb, myThid,err,varid1,tmpprofno |
./pkg/profiles/profiles_readvector.F |
49 |
PROFILES_READVECTOR |
err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno) |
./pkg/profiles/profiles_readvector.F |
54 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500) |
./pkg/profiles/profiles_readvector.F |
62 |
PROFILES_READVECTOR |
profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999) |
./pkg/profiles/profiles_readvector.F |
70 |
PROFILES_READVECTOR |
& irec, profNo(fNb,bi,bj), tmpprofno |