| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
192 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
203 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
206 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
208 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
363 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
377 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
413 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
422 |
AIM_SURF_BC |
& *oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
81 |
AIM_SURF_BC |
_RL oice1(NGP) |
|
./pkg/aim_v23/aim_surf_bc.F |
181 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
192 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
195 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
197 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
344 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
358 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./pkg/aim_v23/aim_surf_bc.F |
394 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./pkg/aim_v23/aim_surf_bc.F |
403 |
AIM_SURF_BC |
& *oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
81 |
AIM_SURF_BC |
_RL oice1(NGP) |