File |
Line number |
Procedure |
Code |
./pkg/ebm/ebm_atmosphere.F |
104 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.0 |
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))* |
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
& (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
./pkg/ebm/ebm_atmosphere.F |
67 |
EBM_ATMOSPHERE |
_RL P2(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSy) |