| 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 |
135 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
136 |
OBCS_SPONGE_U |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
142 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
143 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
147 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
148 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
170 |
OBCS_SPONGE_U |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
171 |
OBCS_SPONGE_U |
i=OB_Iw(j,bi,bj)+isl+1 |
|
./pkg/obcs/obcs_sponge.F |
177 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
178 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
182 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
183 |
OBCS_SPONGE_U |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
249 |
OBCS_SPONGE_V |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
329 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
330 |
OBCS_SPONGE_V |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
336 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
337 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
341 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
342 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
364 |
OBCS_SPONGE_V |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
365 |
OBCS_SPONGE_V |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
371 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
372 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
376 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
377 |
OBCS_SPONGE_V |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
447 |
OBCS_SPONGE_T |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
554 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
55 |
OBCS_SPONGE_U |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
562 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
563 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
567 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
568 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
594 |
OBCS_SPONGE_T |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
595 |
OBCS_SPONGE_T |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
602 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
607 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
608 |
OBCS_SPONGE_T |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
679 |
OBCS_SPONGE_S |
INTEGER i, j, isl, jsl |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
i=OB_Ie(j,bi,bj)-isl |
|
./pkg/obcs/obcs_sponge.F |
794 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
795 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
799 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
800 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |
|
./pkg/obcs/obcs_sponge.F |
826 |
OBCS_SPONGE_S |
DO isl= 1,spongeThickness |
|
./pkg/obcs/obcs_sponge.F |
827 |
OBCS_SPONGE_S |
i=OB_Iw(j,bi,bj)+isl |
|
./pkg/obcs/obcs_sponge.F |
834 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,k,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
835 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,k,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
839 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*Urelaxobcsbound |
|
./pkg/obcs/obcs_sponge.F |
840 |
OBCS_SPONGE_S |
& + float(isl)*Urelaxobcsinner) |