| File |
Line number |
Procedure |
Code |
|
./model/src/external_forcing.F |
265 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./model/src/external_forcing.F |
357 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
358 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./model/src/external_forcing.F |
361 |
EXTERNAL_FORCING_T |
U swfracb, |
|
./model/src/external_forcing.F |
366 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./model/src/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
372 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
295 |
EXTERNAL_FORCING_T |
_RL swfracb(two) |
|
./verification/rotating_tank/code/external_forcing.F |
334 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/rotating_tank/code/external_forcing.F |
338 |
EXTERNAL_FORCING_T |
U swfracb, |
|
./verification/rotating_tank/code/external_forcing.F |
343 |
EXTERNAL_FORCING_T |
swfracb(2)=0. _d 0 |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -swfracb(2)*maskC(i,j,kp1, bi,bj)) |
|
./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 |
326 |
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)) |