| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
176 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
177 |
AIM_SURF_BC |
alb1(I2,2,myThid) = ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
178 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
199 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
200 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
207 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
208 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
209 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
294 |
AIM_SURF_BC |
U stl1(1,mythid), soilw1(1,mythid), alb1(1,1,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
305 |
AIM_SURF_BC |
O sti1(1,mythid), alb1(1,3,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
320 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
321 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
322 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
165 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./pkg/aim_v23/aim_surf_bc.F |
166 |
AIM_SURF_BC |
alb1(I2,2,myThid) = ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
167 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./pkg/aim_v23/aim_surf_bc.F |
187 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
188 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
189 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
196 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
197 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
198 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
269 |
AIM_SURF_BC |
U stl1(1,mythid), soilw1(1,mythid), alb1(1,1,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
280 |
AIM_SURF_BC |
O sti1(1,mythid), alb1(1,3,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
295 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
296 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
297 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/com_forcing.h |
43 |
NO PROCEDURE |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
|
./pkg/aim_v23/com_forcing.h |
50 |
NO PROCEDURE |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |
|
./pkg/aim_v23/aim_diagnostics.F |
136 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,alb1(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
299 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( alb1(1,0,myThid), |