| File |
Line number |
Procedure |
Code |
|
./pkg/rbcs/rbcs_add_tendency.F |
120 |
RBCS_ADD_TENDENCY |
irbc = MIN(maskLEN,tracerNum) |
|
./pkg/rbcs/rbcs_add_tendency.F |
125 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer) |
|
./pkg/rbcs/rbcs_add_tendency.F |
54 |
RBCS_ADD_TENDENCY |
INTEGER irbc |
|
./pkg/rbcs/rbcs_init_fixed.F |
102 |
RBCS_INIT_FIXED |
WRITE(filName,'(A,I3.3)') 'RBC_mask_',irbc |
|
./pkg/rbcs/rbcs_init_fixed.F |
104 |
RBCS_INIT_FIXED |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
36 |
RBCS_INIT_FIXED |
INTEGER irbc |
|
./pkg/rbcs/rbcs_init_fixed.F |
61 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
71 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
83 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
84 |
RBCS_INIT_FIXED |
IF ( relaxMaskFile(irbc).NE. ' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
85 |
RBCS_INIT_FIXED |
CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ', |
|
./pkg/rbcs/rbcs_init_fixed.F |
86 |
RBCS_INIT_FIXED |
& RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid) |
|
./pkg/rbcs/rbcs_init_fixed.F |
87 |
RBCS_INIT_FIXED |
CALL EXCH_XYZ_RS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
94 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc) |
|
./pkg/rbcs/rbcs_readparms.F |
107 |
RBCS_READPARMS |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_readparms.F |
108 |
RBCS_READPARMS |
relaxMaskFile(irbc) = ' ' |
|
./pkg/rbcs/rbcs_readparms.F |
40 |
RBCS_READPARMS |
INTEGER irbc |