Ticket #705: set_diags.diff

File set_diags.diff, 2.0 KB (added by kate, 8 years ago)

patch file for set_diags.F

  • ROMS/Utility/set_diags.F 

    diff --git a/ROMS/Utility/set_diags.F b/ROMS/Utility/set_diags.F
index 974d4ad..5ef24d5 100644
    a b  
    110110!
    111111      IF (nDIA(ng).eq.0) RETURN
    112112
    113 # if defined DIAGNOSTICS_TS || defined DIAGNOSTICS_UV
    114113!
    115114!-----------------------------------------------------------------------
    116115! Initialize time-averaged diagnostic arrays when appropriate.  Notice
    … …  
    123122     &    ((iic(ng).ge.ntsDIA(ng)).and.(nDIA(ng).eq.1)).or.             &
    124123     &    ((nrrec(ng).gt.0).and.(iic(ng).eq.ntstart(ng)))) THEN
    125124
    126 #  ifdef WET_DRY
     125# ifdef WET_DRY
    127126!
    128127!  If wetting and drying, initialize time dependent counters for wet
    129128!  points. The time averaged field at each point is only accumulated
    130 !  over wet points since its multiplied by the appropriate mask.
     129!  over wet points since it is multiplied by the appropriate mask.
    131130!
    132131        DO j=Jstr,JendR
    133132          DO i=Istr,IendR
    … …  
    157156     &                                      1.0_r8))
    158157          END DO
    159158        END DO
    160 #  endif
     159# endif
     160# if defined DIAGNOSTICS_TS || defined DIAGNOSTICS_UV
    161161!
    162162!  Initialize.
    163163!
    … …  
    224224        END DO
    225225#   endif
    226226#  endif
     227# endif
    227228!
    228229!-----------------------------------------------------------------------
    229230!  Accumulate time-averaged fields.
    … …  
    231232!
    232233      ELSE IF (iic(ng).gt.ntsDIA(ng)) THEN
    233234
    234 #  ifdef WET_DRY
     235# ifdef WET_DRY
    235236!
    236237!  If wetting and drying, accumulate wet points counters.
    237238!  points. The time averaged field at each point is only accumulated
    … …  
    269270     &                                      1.0_r8))
    270271          END DO
    271272        END DO
    272 #  endif
     273# endif
     274# if defined DIAGNOSTICS_TS || defined DIAGNOSTICS_UV
    273275!
    274276!  Accumulate diagnostic terms.
    275277!
    … …  
    339341        END DO
    340342#   endif
    341343#  endif
    342       END IF
    343344# endif
     345      END IF
    344346!
    345347!-----------------------------------------------------------------------
    346348!  Convert accumulated sums into time-averages, if appropriate