| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_seaice_sponge.F |
115 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
119 |
OBCS_SEAICE_SPONGE_A |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
120 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
122 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
125 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
142 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs= ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
146 |
OBCS_SEAICE_SPONGE_A |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
147 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
149 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
152 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
204 |
OBCS_SEAICE_SPONGE_H |
_RL lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
218 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
222 |
OBCS_SEAICE_SPONGE_H |
IF (lambda_obcs.ne.0.) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
223 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
225 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
228 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
245 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
249 |
OBCS_SEAICE_SPONGE_H |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
250 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
252 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
255 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
272 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
276 |
OBCS_SEAICE_SPONGE_H |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
277 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
279 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
282 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
299 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs= ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
303 |
OBCS_SEAICE_SPONGE_H |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
304 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
306 |
OBCS_SEAICE_SPONGE_H |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
309 |
OBCS_SEAICE_SPONGE_H |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
361 |
OBCS_SEAICE_SPONGE_SL |
_RL lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
375 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
379 |
OBCS_SEAICE_SPONGE_SL |
IF (lambda_obcs.ne.0.) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
380 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
382 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
385 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
402 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
406 |
OBCS_SEAICE_SPONGE_SL |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
407 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
409 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
412 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
429 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
433 |
OBCS_SEAICE_SPONGE_SL |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
434 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
436 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
439 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
456 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs= ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
460 |
OBCS_SEAICE_SPONGE_SL |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
461 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
463 |
OBCS_SEAICE_SPONGE_SL |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
466 |
OBCS_SEAICE_SPONGE_SL |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
47 |
OBCS_SEAICE_SPONGE_A |
_RL lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
518 |
OBCS_SEAICE_SPONGE_SN |
_RL lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
532 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
536 |
OBCS_SEAICE_SPONGE_SN |
IF (lambda_obcs.ne.0.) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
537 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
539 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
542 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
559 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
563 |
OBCS_SEAICE_SPONGE_SN |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
564 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
566 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
569 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
586 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
590 |
OBCS_SEAICE_SPONGE_SN |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
591 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
593 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
596 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
613 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs= ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
617 |
OBCS_SEAICE_SPONGE_SN |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
618 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
61 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
620 |
OBCS_SEAICE_SPONGE_SN |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
623 |
OBCS_SEAICE_SPONGE_SN |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
65 |
OBCS_SEAICE_SPONGE_A |
IF (lambda_obcs.ne.0.) THEN |
|
./pkg/obcs/obcs_seaice_sponge.F |
66 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
68 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
71 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
88 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = ( |
|
./pkg/obcs/obcs_seaice_sponge.F |
92 |
OBCS_SEAICE_SPONGE_A |
if (lambda_obcs.ne.0.) then |
|
./pkg/obcs/obcs_seaice_sponge.F |
93 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = SEAICE_deltaTtherm / lambda_obcs |
|
./pkg/obcs/obcs_seaice_sponge.F |
95 |
OBCS_SEAICE_SPONGE_A |
lambda_obcs = 0. _d 0 |
|
./pkg/obcs/obcs_seaice_sponge.F |
98 |
OBCS_SEAICE_SPONGE_A |
& - maskC(i,j,1,bi,bj) * lambda_obcs |