| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/DRIVER.h |
11 |
NO PROCEDURE |
INTEGER dtatm ! atmos 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 |
50 |
ATM2D_INIT_FIXED |
dtatm = 1 |
|
./pkg/atm2d/atm2d_init_fixed.F |
67 |
ATM2D_INIT_FIXED |
ncall_atm=dtcouple/dtatm |
|
./pkg/atm2d/atm2d_init_fixed.F |
73 |
ATM2D_INIT_FIXED |
PRINT *,'dtatm=',dtatm |
|
./pkg/atm2d/atm2d_init_vars.F |
50 |
ATM2D_INIT_VARS |
CALL OCEAN_ML(dtocn*3600.,dtatm*3600.) |
|
./pkg/atm2d/forward_step_atm2d.F |
227 |
FORWARD_STEP_ATM2D |
CALL ATMOSPHERE(dtatm,monid) |
|
./pkg/atm2d/forward_step_atm2d.F |
254 |
FORWARD_STEP_ATM2D |
CALL OCEAN_ML(dtocn*3600.,dtatm*3600.) |
|
./pkg/atm2d/forward_step_atm2d.F |
428 |
FORWARD_STEP_ATM2D |
co24ocnan(j)=co24ocnan(j)*dtatm/24.0/365.0 |
|
./pkg/atm2d/init_atm2d.F |
43 |
INIT_ATM2D |
INTEGER dtatm, dtocn, dtcouple |
|
./pkg/atm2d/init_atm2d.F |
57 |
INIT_ATM2D |
dtatmo = dtatm * 3600. |
|
./pkg/atm2d/init_atm2d.F |
8 |
INIT_ATM2D |
SUBROUTINE INIT_ATM2D(dtatm, dtocn, dtcouple, myThid ) |