| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
102 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
104 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 90. |
|
./pkg/ebm/ebm_atmosphere.F |
106 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 9.0 |
|
./pkg/ebm/ebm_atmosphere.F |
108 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 8.0 |
|
./pkg/ebm/ebm_atmosphere.F |
110 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 5.0 |
|
./pkg/ebm/ebm_atmosphere.F |
112 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 1.0 |
|
./pkg/ebm/ebm_atmosphere.F |
268 |
EBM_ATMOSPHERE |
IF (ReCountX(j,bj) .GT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
269 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90./ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
54 |
EBM_ATMOSPHERE |
_RL ReCountX(1-OLy:sNy+OLy,nSy) |
|
./pkg/ebm/ebm_atmosphere.F |
93 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 0.0 |