File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_swrad.F |
1017 |
CLDSCALE |
integer nm,nt,na |
./pkg/fizhi/fizhi_swrad.F |
1018 |
CLDSCALE |
parameter (nm=11,nt=9,na=11) |
./pkg/fizhi/fizhi_swrad.F |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
./pkg/fizhi/fizhi_swrad.F |
1110 |
CLDSCALE |
ia=min(ia,na-1) |
./pkg/atm2d/forward_step_atm2d.F |
226 |
FORWARD_STEP_ATM2D |
DO na=1,ncall_atm !loop for atmos forward time steps |
./pkg/atm2d/forward_step_atm2d.F |
229 |
FORWARD_STEP_ATM2D |
CALL ATM2OCN_MAIN(iloop, na, monid, myIter, myThid) |
./pkg/atm2d/forward_step_atm2d.F |
50 |
FORWARD_STEP_ATM2D |
INTEGER j,mn,na,no !loop counters |