| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
544 |
KPP_CALC |
I , XC(1-Olx,1-Oly,bi,bj), YC(1-Olx,1-Oly,bi,bj) |
|
./pkg/kpp/kpp_calc.F |
641 |
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 |
140 |
DYNSOLVER |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/lsr.F |
222 |
LSR |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
106 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
124 |
SEAICE_FREEDRIFT |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1778 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_growth.F |
1969 |
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 |
1998 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_growth.F |
2031 |
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 |
2090 |
SEAICE_GROWTH |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
275 |
SEAICE_SOLVE4TEMP |
IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN |
|
./model/src/ini_mixing.F |
80 |
INI_MIXING |
IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary ) |
|
./model/src/ini_mixing.F |
82 |
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_readers.F |
164 |
COST_READERS |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_readgfo.F |
164 |
COST_READGFO |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_readtopex.F |
191 |
COST_READTOPEX |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./pkg/ecco/cost_readtopexmean.F |
96 |
COST_READTOPEXMEAN |
if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then |
|
./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 |
|
./pkg/ecco/cost_sshv4.F |
280 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
486 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND. |
|
./pkg/ecco/cost_sshv4.F |
539 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then |
|
./pkg/ecco/cost_sshv4.F |
545 |
COST_SSHV4 |
& ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then |