[Mitgcm-support] Re: Brain blockage

mitgcm-support at dev.mitgcm.org mitgcm-support at dev.mitgcm.org
Wed Jul 9 15:34:12 EDT 2003


Hah! Found my error. Anyone else see it?

> C $Header: $
> C $Name:  $
> 
> #include "CPP_OPTIONS.h"
> 
>       SUBROUTINE MOM_U_ADV_UU(
>      I        bi,bj,k,
>      I        uTrans, uFld,
>      O        AdvectFluxUU,
>      I        myThid)
>       IMPLICIT NONE
> C
> C     Calculate zonal advective flux of U using centered second order diff.
> C       - is not vector invariant ...
> C
> 
> C     == Global variables ==
> #include "SIZE.h"
> #include "EEPARAMS.h"
> #include "PARAMS.h"
> 
> C     == Routine arguments ==
>       INTEGER bi,bj,k
>       _RL uTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
>       _RL uFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,sNx,sNy)
>       _RL AdvectFluxUU(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
>       INTEGER myThid
> 
> C     == Local variables ==
>       INTEGER I,J
> 
>       print *,bi,bj,k
>       DO j=1-Oly,sNy+Oly-1
>        DO i=1-Olx,sNx+Olx-1
>         AdvectFluxUU(i,j) =
>      &       ( uTrans(i,j) + uTrans(i+1,j) )
>      &      *( uFld(i,j,k,bi,bj) + uFld(i+1,j,k,bi,bj) )*0.25 _d 0
>        ENDDO
>       ENDDO
> 
>       RETURN
>       END



More information about the MITgcm-support mailing list