| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
562 |
IRRAD |
integer nx,no,nc,nh,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
564 |
IRRAD |
parameter (nx=26,no=21,nc=24,nh=31,nt=7) |
|
./pkg/fizhi/fizhi_lwrad.F |
615 |
IRRAD |
_RL o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
849 |
IRRAD |
do iw=1,no |
|
./pkg/fizhi/fizhi_lwrad.F |
856 |
IRRAD |
do iw=1,no |
|
./pkg/atm2d/forward_step_atm2d.F |
240 |
FORWARD_STEP_ATM2D |
DO no=1,ncall_ocean !loop for each ocean forward step |
|
./pkg/atm2d/forward_step_atm2d.F |
243 |
FORWARD_STEP_ATM2D |
iloop_ocn = nint((iloop-1)*dtcouplo/deltaTClock) + no |
|
./pkg/atm2d/forward_step_atm2d.F |
50 |
FORWARD_STEP_ATM2D |
INTEGER j,mn,na,no !loop counters |