| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/DRIVER.h |
12 |
NO PROCEDURE |
INTEGER dtocn ! ocean time step (hrs) |
|
./pkg/atm2d/DRIVER.h |
5 |
NO PROCEDURE |
& dtcouple, dtatm, dtocn, startYear, endYear, taveDump, |
|
./pkg/atm2d/atm2d_init_fixed.F |
101 |
ATM2D_INIT_FIXED |
CALL INIT_ATM2D(dtatm, dtocn, dtcouple, myThid) |
|
./pkg/atm2d/atm2d_init_fixed.F |
37 |
ATM2D_INIT_FIXED |
& dtcouple, dtatm, dtocn, startYear, endYear, taveDump |
|
./pkg/atm2d/atm2d_init_fixed.F |
51 |
ATM2D_INIT_FIXED |
dtocn = 8 |
|
./pkg/atm2d/atm2d_init_fixed.F |
68 |
ATM2D_INIT_FIXED |
ncall_ocean=dtcouple/dtocn |
|
./pkg/atm2d/atm2d_init_fixed.F |
74 |
ATM2D_INIT_FIXED |
PRINT *,'dtocn=',dtocn |
|
./pkg/atm2d/atm2d_init_vars.F |
50 |
ATM2D_INIT_VARS |
CALL OCEAN_ML(dtocn*3600.,dtatm*3600.) |
|
./pkg/atm2d/forward_step_atm2d.F |
254 |
FORWARD_STEP_ATM2D |
CALL OCEAN_ML(dtocn*3600.,dtatm*3600.) |
|
./pkg/atm2d/init_atm2d.F |
43 |
INIT_ATM2D |
INTEGER dtatm, dtocn, dtcouple |
|
./pkg/atm2d/init_atm2d.F |
58 |
INIT_ATM2D |
dtocno = dtocn * 3600. |
|
./pkg/atm2d/init_atm2d.F |
8 |
INIT_ATM2D |
SUBROUTINE INIT_ATM2D(dtatm, dtocn, dtcouple, myThid ) |