| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
262 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
264 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
266 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
291 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
292 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
293 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
300 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
301 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
302 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
403 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
414 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
429 |
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 |
430 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
431 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
199 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, alb1, |
|
./pkg/aim_v23/aim_diagnostics.F |
271 |
AIM_DIAGNOSTICS |
& 'aim_alb10',alb1(1,0,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
346 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
433 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( alb1(1,0,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
251 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./pkg/aim_v23/aim_surf_bc.F |
253 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
255 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./pkg/aim_v23/aim_surf_bc.F |
280 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
281 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
282 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
289 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
290 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
291 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
378 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
389 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
404 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
405 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
406 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/com_forcing.h |
47 |
NO PROCEDURE |
COMMON /FORDAY/ sst1, sti1, stl1, soilw1, alb1, dTsurf |
|
./pkg/aim_v23/com_forcing.h |
54 |
NO PROCEDURE |
_RL alb1 (NGP,0:3,MAX_NO_THREADS) |