| File |
Line number |
Procedure |
Code |
|
./pkg/rbcs/rbcs_add_tendency.F |
105 |
RBCS_ADD_TENDENCY |
irbc = MIN(maskLEN,tracerNum) |
|
./pkg/rbcs/rbcs_add_tendency.F |
110 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./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)*rec_tauRlx |
|
./pkg/rbcs/rbcs_add_tendency.F |
51 |
RBCS_ADD_TENDENCY |
INTEGER irbc |
|
./pkg/rbcs/rbcs_add_tendency.F |
92 |
RBCS_ADD_TENDENCY |
irbc = MIN(maskLEN,tracerNum) |
|
./pkg/rbcs/rbcs_add_tendency.F |
97 |
RBCS_ADD_TENDENCY |
& - RBC_mask(i,j,k,bi,bj,irbc)*rec_tauRlx |
|
./pkg/rbcs/rbcs_init_fixed.F |
100 |
RBCS_INIT_FIXED |
iLen = ILNBLNK(relaxMaskTrFile(irbc)) |
|
./pkg/rbcs/rbcs_init_fixed.F |
101 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
|
./pkg/rbcs/rbcs_init_fixed.F |
102 |
RBCS_INIT_FIXED |
& ') = "', relaxMaskTrFile(irbc)(1:iLen), '"' |
|
./pkg/rbcs/rbcs_init_fixed.F |
159 |
RBCS_INIT_FIXED |
irbc = MIN(maskLEN,2+iTr) |
|
./pkg/rbcs/rbcs_init_fixed.F |
160 |
RBCS_INIT_FIXED |
IF ( relaxMaskTrFile(irbc).EQ.' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
163 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_init_fixed.F |
168 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_init_fixed.F |
173 |
RBCS_INIT_FIXED |
iLen = ILNBLNK(relaxMaskTrFile(irbc)) |
|
./pkg/rbcs/rbcs_init_fixed.F |
174 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
|
./pkg/rbcs/rbcs_init_fixed.F |
175 |
RBCS_INIT_FIXED |
& ') = "', relaxMaskTrFile(irbc)(1:iLen), '"' |
|
./pkg/rbcs/rbcs_init_fixed.F |
210 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
220 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0 |
|
./pkg/rbcs/rbcs_init_fixed.F |
232 |
RBCS_INIT_FIXED |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
233 |
RBCS_INIT_FIXED |
IF ( relaxMaskTrFile(irbc).NE. ' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
234 |
RBCS_INIT_FIXED |
CALL READ_FLD_XYZ_RS( relaxMaskTrFile(irbc), ' ', |
|
./pkg/rbcs/rbcs_init_fixed.F |
235 |
RBCS_INIT_FIXED |
& RBC_mask(1-OLx,1-OLy,1,1,1,irbc), 0, myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
236 |
RBCS_INIT_FIXED |
CALL EXCH_XYZ_RS( RBC_mask(1-OLx,1-OLy,1,1,1,irbc), myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
243 |
RBCS_INIT_FIXED |
RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc) |
|
./pkg/rbcs/rbcs_init_fixed.F |
251 |
RBCS_INIT_FIXED |
WRITE(filName,'(A,I3.3)') 'RBC_mask_',irbc |
|
./pkg/rbcs/rbcs_init_fixed.F |
253 |
RBCS_INIT_FIXED |
& RBC_mask(1-OLx,1-OLy,1,1,1,irbc), 0, myThid ) |
|
./pkg/rbcs/rbcs_init_fixed.F |
41 |
RBCS_INIT_FIXED |
INTEGER irbc, iLen |
|
./pkg/rbcs/rbcs_init_fixed.F |
62 |
RBCS_INIT_FIXED |
irbc = MIN(maskLEN,1) |
|
./pkg/rbcs/rbcs_init_fixed.F |
63 |
RBCS_INIT_FIXED |
IF ( relaxMaskTrFile(irbc).EQ.' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
65 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_init_fixed.F |
70 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_init_fixed.F |
75 |
RBCS_INIT_FIXED |
iLen = ILNBLNK(relaxMaskTrFile(irbc)) |
|
./pkg/rbcs/rbcs_init_fixed.F |
76 |
RBCS_INIT_FIXED |
WRITE(msgBuf,'(A,I3,3A)') 'Use relaxMaskFile(irbc=', irbc, |
|
./pkg/rbcs/rbcs_init_fixed.F |
77 |
RBCS_INIT_FIXED |
& ') = "', relaxMaskTrFile(irbc)(1:iLen), '"' |
|
./pkg/rbcs/rbcs_init_fixed.F |
87 |
RBCS_INIT_FIXED |
irbc = MIN(maskLEN,2) |
|
./pkg/rbcs/rbcs_init_fixed.F |
88 |
RBCS_INIT_FIXED |
IF ( relaxMaskTrFile(irbc).EQ.' ' ) THEN |
|
./pkg/rbcs/rbcs_init_fixed.F |
90 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_init_fixed.F |
95 |
RBCS_INIT_FIXED |
& ' relaxMaskFile(irbc=', irbc, ') unset ==> No relaxation', |
|
./pkg/rbcs/rbcs_readparms.F |
114 |
RBCS_READPARMS |
DO irbc=1,locSize |
|
./pkg/rbcs/rbcs_readparms.F |
115 |
RBCS_READPARMS |
relaxMaskFile(irbc) = ' ' |
|
./pkg/rbcs/rbcs_readparms.F |
164 |
RBCS_READPARMS |
DO irbc=1,maskLEN |
|
./pkg/rbcs/rbcs_readparms.F |
165 |
RBCS_READPARMS |
relaxMaskTrFile(irbc) = ' ' |
|
./pkg/rbcs/rbcs_readparms.F |
168 |
RBCS_READPARMS |
DO irbc=1,locSize |
|
./pkg/rbcs/rbcs_readparms.F |
169 |
RBCS_READPARMS |
IF ( irbc.LE.maskLEN ) THEN |
|
./pkg/rbcs/rbcs_readparms.F |
170 |
RBCS_READPARMS |
relaxMaskTrFile(irbc) = relaxMaskFile(irbc) |
|
./pkg/rbcs/rbcs_readparms.F |
171 |
RBCS_READPARMS |
ELSEIF ( relaxMaskFile(irbc).NE.' ' ) THEN |
|
./pkg/rbcs/rbcs_readparms.F |
42 |
RBCS_READPARMS |
INTEGER irbc, errCount |