File |
Line number |
Procedure |
Code |
./pkg/atm2d/atm2d_init_fixed.F |
10 |
ATM2D_INIT_FIXED |
SUBROUTINE ATM2D_INIT_FIXED(nCouplePer, myThid) |
./pkg/atm2d/atm2d_init_fixed.F |
32 |
ATM2D_INIT_FIXED |
INTEGER nCouplePer !not a subroutine parm for OCEAN_3D |
./pkg/atm2d/atm2d_init_fixed.F |
41 |
ATM2D_INIT_FIXED |
INTEGER nCouplePer !not a subroutine parm for OCEAN_3D |
./pkg/atm2d/atm2d_init_fixed.F |
69 |
ATM2D_INIT_FIXED |
nCouplePer = (endYear-startYear+1)*24*365/dtcouple |
./pkg/atm2d/atm2d_init_fixed.F |
75 |
ATM2D_INIT_FIXED |
PRINT *,'Total number of coupled periods:',nCouplePer |
./pkg/atm2d/atm2d_init_fixed.F |
78 |
ATM2D_INIT_FIXED |
nTimeSteps = nCouplePer !overwrite whatever MITGCM gets from data |