| 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 |
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 |
384 |
AIM_SURF_BC |
U stl1(1,myThid), soilw1(1,myThid), alb1(1,1,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
395 |
AIM_SURF_BC |
O sti1(1,myThid), alb1(1,3,myThid), |
|
./pkg/aim_v23/aim_surf_bc.F |
410 |
AIM_SURF_BC |
alb1(J,0,myThid) = fMask1(J,1,myThid)*alb1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
411 |
AIM_SURF_BC |
& + fMask1(J,2,myThid)*alb1(J,2,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
412 |
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) |