Bug in tl_ocean.h

[hjsong]

Hi,

I just found a trivial bug in the tl_ocean.h

The local variable, Fcount, is not declared under the 'ROMS_finalize', and this resulted in an error during compiling.

Code: Select all

      SUBROUTINE ROMS_finalize
!
!=======================================================================
!                                                                      !
!  This routine terminates ROMS/TOMS tangent linear model execution.   !
!                                                                      !
!=======================================================================
!
      USE mod_param
      USE mod_parallel
      USE mod_iounits
      USE mod_ncparam
      USE mod_scalars
!
!  Local variable declarations.
!
!      integer :: ng, thread

After declaring this variable, the error was gone.

Code: Select all

      SUBROUTINE ROMS_finalize
!
!=======================================================================
!                                                                      !
!  This routine terminates ROMS/TOMS tangent linear model execution.   !
!                                                                      !
!=======================================================================
!
      USE mod_param
      USE mod_parallel
      USE mod_iounits
      USE mod_ncparam
      USE mod_scalars
!
!  Local variable declarations.
!
!      integer :: Fcount, ng, thread

Thank you.
Hajoon