Changes between Initial Version and Version 1 of Ticket #721


Ignore:
Timestamp:
03/04/17 03:04:52 (7 years ago)
Author:
arango
Comment:

Yes, thank you. Good catch.

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #721

    • Property Resolution → Fixed
    • Property Status new → closed

  • Ticket #721 – Description

    initial v1  
    1 diff --git a/ROMS/Utility/uv_rotate.F b/ROMS/Utility/uv_rotate.F
    2 index 168405c..86011c1 100644
    3 --- a/ROMS/Utility/uv_rotate.F
    4 +++ b/ROMS/Utility/uv_rotate.F
    5 @@ -190,7 +190,7 @@
    6        real(r8), intent(in) :: Vinp(LBi:UBi,LBj:UBj,LBk:UBk)
    7  
    8        real(r8), intent(inout) :: Uout(LBi:UBi,LBj:UBj,LBk:UBk)
    9 -      real(r8), intent(inout) :: Vout(LBi:UBi,LBj:UBj,LBk,UBk)
    10 +      real(r8), intent(inout) :: Vout(LBi:UBi,LBj:UBj,LBk:UBk)
    11  # endif
    12  !
    13  !  Local variable declarations.
     1There is a bug in uv_rotate.F when ASSUMED_SHAPE is activated. We need to have:
     2{{{
     3      real(r8), intent(inout) :: Uout(LBi:UBi,LBj:UBj,LBk:UBk)
     4      real(r8), intent(inout) :: Vout(LBi:UBi,LBj:UBj,LBk:UBk)
     5}}}
     6
     7instead of
     8{{{
     9      real(r8), intent(inout) :: Uout(LBi:UBi,LBj:UBj,LBk:UBk)
     10      real(r8), intent(inout) :: Vout(LBi:UBi,LBj:UBj,LBk,UBk)
     11}}}