Ticket #773: gfortran_checking.diff

File gfortran_checking.diff, 1.1 KB (added by kate, 6 years ago)

patch file to fix issue

  • ROMS/Modules/mod_param.F 

    diff --git a/ROMS/Modules/mod_param.F b/ROMS/Modules/mod_param.F
index 56b9b5d..7fc4d66 100644
    a b  
    994994              LBC(ibry,ivar,ng)%nudging = .FALSE.
    995995              LBC(ibry,ivar,ng)%periodic = .FALSE.
    996996              LBC(ibry,ivar,ng)%radiation = .FALSE.
     997              LBC(ibry,ivar,ng)%reduced = .FALSE.
    997998              LBC(ibry,ivar,ng)%Shchepetkin = .FALSE.
    998999            END DO
    9991000          END DO

  • ROMS/Utility/timers.F 

    diff --git a/ROMS/Utility/timers.F b/ROMS/Utility/timers.F
index b9a4683..daf0af7 100644
    a b  
    11#include "cppdefs.h"
    2       SUBROUTINE wclock_on (ng, model, region, line, routine)
     2      RECURSIVE SUBROUTINE wclock_on (ng, model, region, line, routine)
    33!
    44
    55!svn $Id$
    … …  
    103103      RETURN
    104104      END SUBROUTINE wclock_on
    105105!
    106       SUBROUTINE wclock_off (ng, model, region, line, routine)
     106      RECURSIVE SUBROUTINE wclock_off (ng, model, region, line, routine)
    107107!
    108108!=======================================================================
    109109!                                                                      !