| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
112 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
121 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
123 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = 90. |
|
./pkg/ebm/ebm_atmosphere.F |
125 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 9.0 |
|
./pkg/ebm/ebm_atmosphere.F |
127 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 8.0 |
|
./pkg/ebm/ebm_atmosphere.F |
129 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 5.0 |
|
./pkg/ebm/ebm_atmosphere.F |
131 |
EBM_ATMOSPHERE |
ReCountX(j,bj) = CountX(j,bj) + 1.0 |
|
./pkg/ebm/ebm_atmosphere.F |
289 |
EBM_ATMOSPHERE |
IF (ReCountX(j,bj) .GT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
60 |
EBM_ATMOSPHERE |
_RL ReCountX(1-OLy:sNy+OLy,nSy) |