| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
136 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
318 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/dynsolver.F |
437 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
168 |
SEAICE_BUDGET_ICE_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_evp.F |
435 |
SEAICE_EVP |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
111 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
129 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
80 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
130 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
148 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_get_dynforcing.F |
231 |
SEAICE_GET_DYNFORCING |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1051 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1175 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth_if.F |
678 |
SEAICE_GROWTH_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
225 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
266 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./model/src/ini_mixing.F |
73 |
INI_MIXING |
IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
75 |
INI_MIXING |
& ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./pkg/dic/insol.F |
68 |
INSOL |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/ecco/cost_gencost_sshv4.F |
276 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
479 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_gencost_sshv4.F |
532 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
538 |
COST_GENCOST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
256 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
459 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
512 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
518 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then |