Symbol Description Uses
inyr 11


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