| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
114 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
421 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
423 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
424 |
AIM_SURF_BC |
& - fMask1(J,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) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
443 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
444 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
71 |
AIM_DIAGNOSTICS |
dTsurf(J,1,myThid) = fMask1(J,1,myThid)*dTsurf(J,1,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
72 |
AIM_DIAGNOSTICS |
& + fMask1(J,2,myThid)*dTsurf(J,2,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
73 |
AIM_DIAGNOSTICS |
& + fMask1(J,3,myThid)*dTsurf(J,3,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
402 |
AIM_SURF_BC |
fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid)) |
|
./pkg/aim_v23/aim_surf_bc.F |
404 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |
|
./pkg/aim_v23/aim_surf_bc.F |
405 |
AIM_SURF_BC |
& - fMask1(J,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/aim_surf_bc.F |
424 |
AIM_SURF_BC |
fMask1(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/aim_surf_bc.F |
425 |
AIM_SURF_BC |
fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid) |