| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
554 |
KPP_CALC |
I , XC(1-OLx,1-OLy,bi,bj), YC(1-OLx,1-OLy,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
653 |
KPP_CALC |
lat(i,j) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
134 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(1) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
135 |
SALT_PLUME_TENDENCY_APPLY_S |
lat(2) = YC(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
82 |
SALT_PLUME_TENDENCY_APPLY_S |
I XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
95 |
SALT_PLUME_TENDENCY_APPLY_S |
I XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj), |
|
./pkg/salt_plume/salt_plume_volfrac.F |
103 |
SALT_PLUME_VOLFRAC |
I XC(1-Olx,1-Oly,bi,bj),YC(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/dynsolver.F |
143 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
225 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
109 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
127 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1800 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
2007 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2036 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2069 |
SEAICE_GROWTH |
IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0 |
|
./pkg/seaice/seaice_growth.F |
2128 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
96 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
278 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./model/src/ini_mixing.F |
82 |
INI_MIXING |
IF ( ABS(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
84 |
INI_MIXING |
& ( 1 + COS(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2 |
|
./pkg/bling/bling_light.F |
124 |
BLING_LIGHT |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/dic/insol.F |
68 |
INSOL |
lat=YC(1,j,1,bj)*deg2rad |
|
./pkg/ecco/cost_sla_read.F |
160 |
COST_SLA_READ |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_sla_read_yd.F |
139 |
COST_SLA_READ_YD |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |