| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
274 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
276 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
278 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
303 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
304 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
305 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
312 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
313 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
314 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
415 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
426 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
441 |
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 |
442 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
443 |
AIM_SURF_BC |
& + fMask1(J,3,myThid)*alb1(J,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
210 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, alb1, |
|
./pkg/aim_v23/aim_diagnostics.F |
282 |
AIM_DIAGNOSTICS |
& 'aim_alb10',alb1(1,0,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
357 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
444 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( alb1(1,0,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
257 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./pkg/aim_v23/aim_surf_bc.F |
259 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
261 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./pkg/aim_v23/aim_surf_bc.F |
286 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
287 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
295 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
296 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
297 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
383 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
394 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
409 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
410 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
411 |
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) |