| File |
Line number |
Procedure |
Code |
|
./pkg/rbcs/rbcs_add_tendency.F |
48 |
RBCS_ADD_TENDENCY |
INTEGER irbc |
|
./pkg/rbcs/rbcs_add_tendency.F |
79 |
RBCS_ADD_TENDENCY |
irbc = MIN(maskLEN,tracerNum) |
|
./pkg/rbcs/rbcs_add_tendency.F |
85 |
RBCS_ADD_TENDENCY |
& *RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer) |
|
./pkg/rbcs/rbcs_init_fixed.F |
33 |
RBCS_INIT_FIXED |
INTEGER irbc |
|
./pkg/rbcs/rbcs_init_fixed.F |
36 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
46 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
58 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
59 |
RBCS_INIT_FIXED |
IF ( relaxMaskFile(irbc).NE. ' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
60 |
RBCS_INIT_FIXED |
CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ', |
|
./pkg/rbcs/rbcs_init_fixed.F |
61 |
RBCS_INIT_FIXED |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
62 |
RBCS_INIT_FIXED |
CALL EXCH_XYZ_RS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
66 |
RBCS_INIT_FIXED |
CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), |
|
./pkg/rbcs/rbcs_readparms.F |
39 |
RBCS_READPARMS |
INTEGER irbc |
|
./pkg/rbcs/rbcs_readparms.F |
80 |
RBCS_READPARMS |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_readparms.F |
81 |
RBCS_READPARMS |
relaxMaskFile(irbc) = ' ' |