| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
7 |
NO PROCEDURE |
COMMON/TMSTPS4OCN/dtatmo,dtocno,dtcouplo |
|
./pkg/atm2d/ATM2D_VARS.h |
8 |
NO PROCEDURE |
_RS dtatmo ! atmospheric time step (s) |
|
./pkg/atm2d/atm2ocn_main.F |
41 |
ATM2OCN_MAIN |
curTime = float(iloop-1)*dtcouplo + (float(aloop)-0.5)*dtatmo |
|
./pkg/atm2d/calc_1dto2d.F |
78 |
CALC_1DTO2D |
& qneti_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
79 |
CALC_1DTO2D |
& qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
81 |
CALC_1DTO2D |
& evapi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
82 |
CALC_1DTO2D |
& evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
84 |
CALC_1DTO2D |
& precipi_2D(i,j)*dtatmo*iceMask(i,j,1,1) + |
|
./pkg/atm2d/calc_1dto2d.F |
85 |
CALC_1DTO2D |
& precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1)) |
|
./pkg/atm2d/calc_1dto2d.F |
87 |
CALC_1DTO2D |
& runoff_2D(i,j)*dtatmo |
|
./pkg/atm2d/calc_fileload.F |
79 |
CALC_FILELOAD |
IF (ifcyc.LE.dmonth(intime0) + dtatmo) ifTime=.TRUE. |
|
./pkg/atm2d/init_atm2d.F |
57 |
INIT_ATM2D |
dtatmo = dtatm * 3600. |
|
./pkg/atm2d/init_atm2d.F |
64 |
INIT_ATM2D |
thsIce_dtTemp = dtatmo |
|
./pkg/atm2d/norm_ocn_fluxes.F |
37 |
NORM_OCN_FLUXES |
nper= dtcouplo/dtatmo |
|
./pkg/atm2d/read_atmos.F |
41 |
READ_ATMOS |
& tauu(j_atm)*dtatmo |
|
./pkg/atm2d/read_atmos.F |
43 |
READ_ATMOS |
& tauv(j_atm)*dtatmo |
|
./pkg/atm2d/read_atmos.F |
45 |
READ_ATMOS |
& wsocean(j_atm)*dtatmo |
|
./pkg/atm2d/read_atmos.F |
47 |
READ_ATMOS |
& ps4ocean(j_atm)*dtatmo |
|
./pkg/atm2d/relax_add.F |
162 |
RELAX_ADD |
sum_qrel(i,j)= sum_qrel(i,j) + qrelflux*dtatmo |
|
./pkg/atm2d/relax_add.F |
163 |
RELAX_ADD |
sum_frel(i,j)= sum_frel(i,j) + frelflux*dtatmo |