| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/DRIVER.h |
10 |
NO PROCEDURE |
INTEGER dtcouple ! coupling period (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 |
52 |
ATM2D_INIT_FIXED |
dtcouple = 8 |
|
./pkg/atm2d/atm2d_init_fixed.F |
67 |
ATM2D_INIT_FIXED |
ncall_atm=dtcouple/dtatm |
|
./pkg/atm2d/atm2d_init_fixed.F |
68 |
ATM2D_INIT_FIXED |
ncall_ocean=dtcouple/dtocn |
|
./pkg/atm2d/atm2d_init_fixed.F |
69 |
ATM2D_INIT_FIXED |
nCouplePer = (endYear-startYear+1)*24*365/dtcouple |
|
./pkg/atm2d/atm2d_init_fixed.F |
72 |
ATM2D_INIT_FIXED |
PRINT *,'dcouple=',dtcouple |
|
./pkg/atm2d/forward_step_atm2d.F |
172 |
FORWARD_STEP_ATM2D |
IF (inyr.EQ.jdofmhr(monid-1)+dtcouple) THEN !do this block month start |
|
./pkg/atm2d/forward_step_atm2d.F |
87 |
FORWARD_STEP_ATM2D |
idyear= int((iloop-1)*dtcouple/365.0/24.0) + 1 |
|
./pkg/atm2d/forward_step_atm2d.F |
89 |
FORWARD_STEP_ATM2D |
inyr = mod(iloop*dtcouple, 365*24) |
|
./pkg/atm2d/forward_step_atm2d.F |
94 |
FORWARD_STEP_ATM2D |
inday= mod(iloop*dtcouple, 24) |
|
./pkg/atm2d/forward_step_atm2d.F |
95 |
FORWARD_STEP_ATM2D |
dayid= int((inyr-dtcouple-jdofmhr(monid-1))/24.0) +1 |
|
./pkg/atm2d/forward_step_atm2d.F |
99 |
FORWARD_STEP_ATM2D |
IF (inyr.EQ.dtcouple) THEN !do this block at start of new year |
|
./pkg/atm2d/init_atm2d.F |
43 |
INIT_ATM2D |
INTEGER dtatm, dtocn, dtcouple |
|
./pkg/atm2d/init_atm2d.F |
59 |
INIT_ATM2D |
dtcouplo= dtcouple * 3600. |
|
./pkg/atm2d/init_atm2d.F |
8 |
INIT_ATM2D |
SUBROUTINE INIT_ATM2D(dtatm, dtocn, dtcouple, myThid ) |