File |
Line number |
Procedure |
Code |
./pkg/atm2d/atm2ocn_main.F |
39 |
ATM2OCN_MAIN |
_RL curTime ! current time (s) of simulation starting from 0.0 |
./pkg/atm2d/atm2ocn_main.F |
41 |
ATM2OCN_MAIN |
curTime = float(iloop-1)*dtcouplo + (float(aloop)-0.5)*dtatmo |
./pkg/atm2d/atm2ocn_main.F |
43 |
ATM2OCN_MAIN |
PRINT *,'Executing atm2ocn main',curTime |
./pkg/atm2d/atm2ocn_main.F |
44 |
ATM2OCN_MAIN |
CALL CALC_FILELOAD( curTime, iloop, aloop, wght0, wght1, |
./pkg/atm2d/calc_fileload.F |
33 |
CALC_FILELOAD |
_RL curTime |
./pkg/atm2d/calc_fileload.F |
62 |
CALC_FILELOAD |
ifcyc=mod(curTime,secYr) |
./pkg/atm2d/calc_fileload.F |
7 |
CALC_FILELOAD |
SUBROUTINE CALC_FILELOAD( curTime, iloop, aloop, |