| File |
Line number |
Procedure |
Code |
|
./verification/tidal_basin_2d/code/external_forcing.F |
283 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
322 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
327 |
EXTERNAL_FORCING_T |
U swfracb) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
331 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
337 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
296 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/rotating_tank/code/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
U swfracb) |
|
./verification/rotating_tank/code/external_forcing.F |
344 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
350 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./model/src/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./model/src/external_forcing.F |
291 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
292 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./model/src/external_forcing.F |
296 |
EXTERNAL_FORCING_T |
U swfracb) |
|
./model/src/external_forcing.F |
300 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/external_forcing.F |
305 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
306 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |