File |
Line number |
Procedure |
Code |
./pkg/obcs/obcs_readparms.F |
107 |
OBCS_READPARMS |
INTEGER OB_Jsouth(W2_maxXStackNx) |
./pkg/obcs/obcs_readparms.F |
112 |
OBCS_READPARMS |
INTEGER OB_Jsouth(Nx) |
./pkg/obcs/obcs_readparms.F |
141 |
OBCS_READPARMS |
& OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest, |
./pkg/obcs/obcs_readparms.F |
238 |
OBCS_READPARMS |
OB_Jsouth(i) = OB_indexUnset |
./pkg/obcs/obcs_readparms.F |
511 |
OBCS_READPARMS |
IF ( OB_Jsouth(i).EQ.OB_indexUnset ) THEN |
./pkg/obcs/obcs_readparms.F |
512 |
OBCS_READPARMS |
OB_Jsouth(i) = OB_singleJsouth |
./pkg/obcs/obcs_readparms.F |
513 |
OBCS_READPARMS |
ELSEIF ( OB_Jsouth(i).NE.OB_singleJsouth ) THEN |
./pkg/obcs/obcs_readparms.F |
550 |
OBCS_READPARMS |
CALL PRINT_LIST_I( OB_Jsouth, 1, OBNS_Nx, INDEX_I, |
./pkg/obcs/obcs_readparms.F |
607 |
OBCS_READPARMS |
IF ( OB_Jsouth(iG).NE.OB_indexUnset ) THEN |
./pkg/obcs/obcs_readparms.F |
610 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j |
./pkg/obcs/obcs_readparms.F |
681 |
OBCS_READPARMS |
IF ( OB_Jsouth(iGm).NE.OB_indexUnset ) THEN |
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |