| Symbol | Description | Uses |
| jdofmhr | 9 |
| 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 | 51 | FORWARD_STEP_ATM2D |
INTEGER jdofmhr(0:12) |
| ./pkg/atm2d/forward_step_atm2d.F | 52 | FORWARD_STEP_ATM2D |
DATA jdofmhr/0,744,1416,2160,2880,3624,4344,5088, |
| ./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 |