| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_forcing1.h |
25 |
NO PROCEDURE |
COMMON /FORCIN/ sst1, oice1, stl1, snow1, soilq1 |
|
./pkg/aim/com_forcing1.h |
27 |
NO PROCEDURE |
_RL oice1 (ngp,MAX_NO_THREADS) |
|
./pkg/aim/aim_do_atmos_physics.F |
284 |
AIM_DO_PHYSICS |
oice1(I2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
135 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
146 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
149 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
151 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
270 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
284 |
AIM_SURF_BC |
U sst1(1,mythid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
304 |
AIM_SURF_BC |
U sst1(1,mythid), oice1, |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
313 |
AIM_SURF_BC |
& *oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
124 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
135 |
AIM_SURF_BC |
IF ( oice1(J) .GT. 1. _d -2 ) THEN |
|
./pkg/aim_v23/aim_surf_bc.F |
138 |
AIM_SURF_BC |
& +(sti1(J,myThid)-sst1(J,myThid))/oice1(J) |
|
./pkg/aim_v23/aim_surf_bc.F |
140 |
AIM_SURF_BC |
oice1(J) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
245 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
259 |
AIM_SURF_BC |
U sst1(1,mythid), oice1, |
|
./pkg/aim_v23/aim_surf_bc.F |
279 |
AIM_SURF_BC |
U sst1(1,mythid), oice1, |
|
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
& *oice1(J) |
|
./pkg/aim_v23/com_forcing.h |
52 |
NO PROCEDURE |
_RL oice1(NGP), snow1(NGP) |