| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS.h |
44 |
NO PROCEDURE |
& spongeThickness, |
|
./pkg/obcs/OBCS.h |
53 |
NO PROCEDURE |
INTEGER spongeThickness |
|
./pkg/obcs/obcs_readparms.F |
152 |
OBCS_READPARMS |
& spongeThickness |
|
./pkg/obcs/obcs_readparms.F |
286 |
OBCS_READPARMS |
spongeThickness = 0 |
|
./pkg/obcs/obcs_sponge.F |
100 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
103 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
105 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
126 |
OBCS_SPONGE_U |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
127 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
132 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
134 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
137 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
139 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
160 |
OBCS_SPONGE_U |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
161 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
166 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
168 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
173 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
242 |
OBCS_SPONGE_V |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
243 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
248 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
250 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
253 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
255 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
276 |
OBCS_SPONGE_V |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
277 |
OBCS_SPONGE_V |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
282 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
284 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
287 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
289 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
310 |
OBCS_SPONGE_V |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
311 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
318 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
321 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
323 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
344 |
OBCS_SPONGE_V |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
345 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
353 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
356 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
358 |
OBCS_SPONGE_V |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
450 |
OBCS_SPONGE_T |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
451 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
457 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
459 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
461 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
463 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
490 |
OBCS_SPONGE_T |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
491 |
OBCS_SPONGE_T |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
499 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
502 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
504 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
531 |
OBCS_SPONGE_T |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
532 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
538 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
540 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
543 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
545 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
572 |
OBCS_SPONGE_T |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
573 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
581 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
583 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
586 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
588 |
OBCS_SPONGE_T |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
58 |
OBCS_SPONGE_U |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
59 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
66 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
681 |
OBCS_SPONGE_S |
IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
682 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
688 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
690 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
693 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
695 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
69 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
71 |
OBCS_SPONGE_U |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
722 |
OBCS_SPONGE_S |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
723 |
OBCS_SPONGE_S |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
731 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
734 |
OBCS_SPONGE_S |
& float(spongeThickness)*Vrelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
736 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
763 |
OBCS_SPONGE_S |
IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
764 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
770 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
772 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
775 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
777 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
804 |
OBCS_SPONGE_S |
IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
805 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
816 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
819 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
821 |
OBCS_SPONGE_S |
& / float(spongeThickness) |
|
./pkg/obcs/obcs_sponge.F |
92 |
OBCS_SPONGE_U |
IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN |
|
./pkg/obcs/obcs_sponge.F |
93 |
OBCS_SPONGE_U |
DO jsl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
98 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj) |