pkg/mom_common/mom_calc_absvort3.F

7c7b0b4a46 Alis*0001 #include "MOM_COMMON_OPTIONS.h"
aea29c8517 Alis*0002
7c7b0b4a46 Alis*0003       SUBROUTINE MOM_CALC_ABSVORT3(
aea29c8517 Alis*0004      I        bi,bj,k,
                0005      I        vort3,
                0006      O        omega3,
                0007      I        myThid)
                0008       IMPLICIT NONE
                0009 C     /==========================================================\
                0010 C     | S/R MOM_CALC_ABSVORT3                                    |
                0011 C     |==========================================================|
                0012 C     \==========================================================/
                0013
                0014 C     == Global variables ==
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018 #include "GRID.h"
                0019 C     == Routine arguments ==
                0020 C     myThid - Instance number for this innvocation of CALC_MOM_RHS
                0021       INTEGER bi,bj,k
                0022       _RL vort3(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
                0023       _RL omega3(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
                0024       INTEGER myThid
                0025
                0026 C     == Local variables ==
                0027       INTEGER i,j
                0028       _RL nonLinFac,useCoriolisFac
                0029
644296ff7b Jean*0030       IF (momAdvection) THEN
                0031         nonLinFac=1.
                0032       ELSE
                0033         nonLinFac=0.
                0034       ENDIF
                0035       IF (useCoriolis) THEN
                0036         useCoriolisFac=1.
                0037       ELSE
                0038         useCoriolisFac=0.
                0039       ENDIF
aea29c8517 Alis*0040
644296ff7b Jean*0041       DO j=1-Oly,sNy+Oly
                0042        DO i=1-Olx,sNx+Olx
aea29c8517 Alis*0043         omega3(I,J)=
644296ff7b Jean*0044      &      fCoriG(i,j,bi,bj)*useCoriolisFac
aea29c8517 Alis*0045      &     +vort3(i,j)*nonLinFac
                0046        ENDDO
                0047       ENDDO
                0048
                0049       RETURN
                0050       END