Symbol Description Uses
imonth 13


File Line number Procedure Code
./pkg/cal/cal_daysformonth.F 131 CAL_DAYSFORMONTH 
        if ( imonth .eq. 1 ) then
./pkg/cal/cal_daysformonth.F 134 CAL_DAYSFORMONTH 
        else if ( ( imonth .gt.     1     )        .and.
./pkg/cal/cal_daysformonth.F 135 CAL_DAYSFORMONTH 
     &            ( imonth .lt. nummonths )       ) then
./pkg/cal/cal_daysformonth.F 140 CAL_DAYSFORMONTH 
          do i = 2,imonth-1
./pkg/cal/cal_daysformonth.F 162 CAL_DAYSFORMONTH 
        else if ( imonth .eq. nummonths ) then
./pkg/cal/cal_daysformonth.F 41 CAL_DAYSFORMONTH 
      integer imonth
./pkg/cal/cal_daysformonth.F 7 CAL_DAYSFORMONTH 
     I                             imonth,
./pkg/cal/cal_daysformonth.F 91 CAL_DAYSFORMONTH 
        if ( imonth .eq. 1 ) then
./pkg/ecco/cost_bp_read.F 107 COST_BP_READ 
      imonth = 1 + MOD(modm-1+irec-1,12)
./pkg/ecco/cost_bp_read.F 115 COST_BP_READ 
         imonth = obsrec
./pkg/ecco/cost_bp_read.F 118 COST_BP_READ 
      if ( (obsrec.GT.0).AND.(imonth.GT.0) ) then
./pkg/ecco/cost_bp_read.F 120 COST_BP_READ 
     &                   localobs, imonth, mythid )
./pkg/ecco/cost_bp_read.F 72 COST_BP_READ 
      integer iyear, imonth