| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
209 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
212 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
214 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
375 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
389 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
425 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
434 |
AIM_SURF_BC |
& *oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
87 |
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 |
393 |
AIM_SURF_BC |
U sst1(1,myThid), oice1, |
|
./pkg/aim_v23/aim_surf_bc.F |
402 |
AIM_SURF_BC |
& *oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
81 |
AIM_SURF_BC |
_RL oice1(NGP) |