| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_seaice_sponge.F |
112 |
OBCS_SEAICE_SPONGE_A |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
113 |
OBCS_SEAICE_SPONGE_A |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
116 |
OBCS_SEAICE_SPONGE_A |
& float(seaiceSpongeThickness-isl)*Arelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
117 |
OBCS_SEAICE_SPONGE_A |
& + float(isl-1)*Arelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
139 |
OBCS_SEAICE_SPONGE_A |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
140 |
OBCS_SEAICE_SPONGE_A |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
143 |
OBCS_SEAICE_SPONGE_A |
& float(seaiceSpongeThickness-isl)*Arelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
144 |
OBCS_SEAICE_SPONGE_A |
& + float(isl-1)*Arelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
203 |
OBCS_SEAICE_SPONGE_H |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
269 |
OBCS_SEAICE_SPONGE_H |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
270 |
OBCS_SEAICE_SPONGE_H |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
273 |
OBCS_SEAICE_SPONGE_H |
& float(seaiceSpongeThickness-isl)*Hrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
274 |
OBCS_SEAICE_SPONGE_H |
& + float(isl-1)*Hrelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
296 |
OBCS_SEAICE_SPONGE_H |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
297 |
OBCS_SEAICE_SPONGE_H |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
300 |
OBCS_SEAICE_SPONGE_H |
& float(seaiceSpongeThickness-isl)*Hrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
301 |
OBCS_SEAICE_SPONGE_H |
& + float(isl-1)*Hrelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
360 |
OBCS_SEAICE_SPONGE_SL |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
426 |
OBCS_SEAICE_SPONGE_SL |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
427 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
430 |
OBCS_SEAICE_SPONGE_SL |
& float(seaiceSpongeThickness-isl)*SLrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
431 |
OBCS_SEAICE_SPONGE_SL |
& + float(isl-1)*SLrelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
453 |
OBCS_SEAICE_SPONGE_SL |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
454 |
OBCS_SEAICE_SPONGE_SL |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
457 |
OBCS_SEAICE_SPONGE_SL |
& float(seaiceSpongeThickness-isl)*SLrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
458 |
OBCS_SEAICE_SPONGE_SL |
& + float(isl-1)*SLrelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
46 |
OBCS_SEAICE_SPONGE_A |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
517 |
OBCS_SEAICE_SPONGE_SN |
INTEGER bi, bj, i, j, isl, jsl |
|
./pkg/obcs/obcs_seaice_sponge.F |
583 |
OBCS_SEAICE_SPONGE_SN |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
584 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
587 |
OBCS_SEAICE_SPONGE_SN |
& float(seaiceSpongeThickness-isl)*SNrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
588 |
OBCS_SEAICE_SPONGE_SN |
& + float(isl-1)*SNrelaxobcsinner) |
|
./pkg/obcs/obcs_seaice_sponge.F |
610 |
OBCS_SEAICE_SPONGE_SN |
DO isl= 1,seaiceSpongeThickness |
|
./pkg/obcs/obcs_seaice_sponge.F |
611 |
OBCS_SEAICE_SPONGE_SN |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_seaice_sponge.F |
614 |
OBCS_SEAICE_SPONGE_SN |
& float(seaiceSpongeThickness-isl)*SNrelaxobcsbound |
|
./pkg/obcs/obcs_seaice_sponge.F |
615 |
OBCS_SEAICE_SPONGE_SN |
& + float(isl-1)*SNrelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
132 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
137 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
138 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
142 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
166 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
172 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
176 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
177 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
245 |
OBCS_SPONGE_V |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
322 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
323 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
327 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
328 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
332 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
356 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
357 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
362 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
363 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
367 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
440 |
OBCS_SPONGE_T |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
549 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
550 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
556 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
55 |
OBCS_SPONGE_U |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
560 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
561 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
590 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
593 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
598 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
599 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
604 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
677 |
OBCS_SPONGE_S |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
788 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
793 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
794 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
798 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
799 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
828 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
832 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
837 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
838 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
842 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
843 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |