| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_atmosphere.F |
165 |
EBM_ATMOSPHERE |
DO no_so = 1,2 |
|
./pkg/ebm/ebm_atmosphere.F |
166 |
EBM_ATMOSPHERE |
T35(no_so)= T0(no_so) + |
|
./pkg/ebm/ebm_atmosphere.F |
167 |
EBM_ATMOSPHERE |
& T2(no_so)*0.5* |
|
./pkg/ebm/ebm_atmosphere.F |
173 |
EBM_ATMOSPHERE |
DO no_so = 1, 2 |
|
./pkg/ebm/ebm_atmosphere.F |
174 |
EBM_ATMOSPHERE |
DTDy35(no_so) = 3.*T2(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
185 |
EBM_ATMOSPHERE |
DO no_so = 1, 2 |
|
./pkg/ebm/ebm_atmosphere.F |
186 |
EBM_ATMOSPHERE |
IF ( DTDy35(no_so).NE.0. .AND. T35(no_so).NE.0. ) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
187 |
EBM_ATMOSPHERE |
gamma = -T35(no_so)*beta*Hw*Nw*Nw/ |
|
./pkg/ebm/ebm_atmosphere.F |
188 |
EBM_ATMOSPHERE |
& (gravity*f0*DTDy35(no_so)) |
|
./pkg/ebm/ebm_atmosphere.F |
196 |
EBM_ATMOSPHERE |
Cf = htil*2.97 _d 12*C/(T35(no_so)**3)*( |
|
./pkg/ebm/ebm_atmosphere.F |
197 |
EBM_ATMOSPHERE |
& 1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2))) |
|
./pkg/ebm/ebm_atmosphere.F |
198 |
EBM_ATMOSPHERE |
& -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2) |
|
./pkg/ebm/ebm_atmosphere.F |
201 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
202 |
EBM_ATMOSPHERE |
& *(Cs + Cl*exp(-5420./T35(no_so))) |
|
./pkg/ebm/ebm_atmosphere.F |
203 |
EBM_ATMOSPHERE |
& *(abs(DTDy35(no_so))**trans_eff) |
|
./pkg/ebm/ebm_atmosphere.F |
204 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
205 |
EBM_ATMOSPHERE |
& *(abs(DTDy35(no_so))**trans_eff) |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
& *Cf*exp(-5420./T35(no_so)) |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
Hd35(no_so) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
209 |
EBM_ATMOSPHERE |
Fw35(no_so) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
245 |
EBM_ATMOSPHERE |
no_so = 1 |
|
./pkg/ebm/ebm_atmosphere.F |
247 |
EBM_ATMOSPHERE |
no_so = 2 |
|
./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 |
271 |
EBM_ATMOSPHERE |
& Hd35(no_so)*( |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
& Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
327 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
338 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
349 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
56 |
EBM_ATMOSPHERE |
INTEGER no_so |