File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_init_fixed.F |
260 |
PROFILES_INIT_FIXED |
& vec_count2, tmp_i(1,q)) |
./pkg/profiles/profiles_init_fixed.F |
341 |
PROFILES_INIT_FIXED |
& =tmp_i(k,q) |
./pkg/profiles/profiles_init_fixed.F |
347 |
PROFILES_INIT_FIXED |
if ( (tmp_i(k,q).LT.0).OR.(tmp_j(k,q).LT.0) |
./pkg/profiles/profiles_init_fixed.F |
348 |
PROFILES_INIT_FIXED |
& .OR.(tmp_i(k,q).GT.sNx+1).OR.(tmp_j(k,q).GT.sNy+1) ) then |
./pkg/profiles/profiles_init_fixed.F |
355 |
PROFILES_INIT_FIXED |
if ( ((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.0)) |
./pkg/profiles/profiles_init_fixed.F |
356 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.sNx+1).AND.(tmp_j(k,q).EQ.sNy+1)) |
./pkg/profiles/profiles_init_fixed.F |
357 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.0).AND.(tmp_j(k,q).EQ.sNy+1)) |
./pkg/profiles/profiles_init_fixed.F |
358 |
PROFILES_INIT_FIXED |
& .OR.((tmp_i(k,q).EQ.sNx+1).AND.(tmp_j(k,q).EQ.0)) ) then |
./pkg/profiles/profiles_init_fixed.F |
363 |
PROFILES_INIT_FIXED |
& k,q,tmp_i(k,q),tmp_j(k,q),tmp_weights(k,q) |
./pkg/profiles/profiles_init_fixed.F |
50 |
PROFILES_INIT_FIXED |
_RL tmp_i(1000,NUM_INTERP_POINTS) |