| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/EBM.h |
42 |
NO PROCEDURE |
& latBnd, |
|
./pkg/ebm/EBM.h |
45 |
NO PROCEDURE |
_RL latBnd(3) |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. latBnd(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(2) ) THEN |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. latBnd(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. latBnd(3) ) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
142 |
EBM_ATMOSPHERE |
T_var(1) = SIN(latBnd(2)*deg2rad) - SIN(latBnd(1)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
143 |
EBM_ATMOSPHERE |
T_var(2) = SIN(latBnd(3)*deg2rad) - SIN(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
144 |
EBM_ATMOSPHERE |
T_var(3) = SIN(latBnd(2)*deg2rad)**3 - SIN(latBnd(1)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
145 |
EBM_ATMOSPHERE |
T_var(4) = SIN(latBnd(3)*deg2rad)**3 - SIN(latBnd(2)*deg2rad)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
168 |
EBM_ATMOSPHERE |
& ( 3.*SIN(latBnd(2)*deg2rad)**2 - 1. ) |
|
./pkg/ebm/ebm_atmosphere.F |
175 |
EBM_ATMOSPHERE |
& SIN(latBnd(2)*deg2rad)/rSphere |
|
./pkg/ebm/ebm_atmosphere.F |
201 |
EBM_ATMOSPHERE |
Hd35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
204 |
EBM_ATMOSPHERE |
Fw35(no_so) = 2.*PI*rSphere*COS(latBnd(2)*deg2rad) |
|
./pkg/ebm/ebm_readparms.F |
121 |
EBM_READPARMS |
latBnd(1) = 0. _d 0 |
|
./pkg/ebm/ebm_readparms.F |
122 |
EBM_READPARMS |
latBnd(2) = 35. _d 0 |
|
./pkg/ebm/ebm_readparms.F |
123 |
EBM_READPARMS |
latBnd(3) = 85. _d 0 |