| 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.F |
136 |
SEAICE_BUDGET_ICE |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
167 |
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_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 |
529 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
731 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth_if.F |
676 |
SEAICE_GROWTH_IF |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
1057 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) 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 |