| File |
Line number |
Procedure |
Code |
|
./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 |
273 |
FORWARD_STEP_ATM2D |
IF (inyr.EQ.jdofmhr(monid)) THEN !do block if month-end |
|
./pkg/atm2d/forward_step_atm2d.F |
343 |
FORWARD_STEP_ATM2D |
IF (inyr .EQ. jdofmhr(12)) THEN ! do this block at year-end |
|
./pkg/atm2d/forward_step_atm2d.F |
46 |
FORWARD_STEP_ATM2D |
INTEGER inyr ! hours into the current year, end of coupled period |
|
./pkg/atm2d/forward_step_atm2d.F |
89 |
FORWARD_STEP_ATM2D |
inyr = mod(iloop*dtcouple, 365*24) |
|
./pkg/atm2d/forward_step_atm2d.F |
90 |
FORWARD_STEP_ATM2D |
IF (inyr .EQ. 0) inyr=jdofmhr(12) |
|
./pkg/atm2d/forward_step_atm2d.F |
92 |
FORWARD_STEP_ATM2D |
IF ((inyr.GT.jdofmhr(mn-1)).AND.(inyr.LE.jdofmhr(mn))) monid=mn |
|
./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 |