Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
--- MITgcm/pkg/seaice/seaice_calc_strainrates.F 2010/11/05 08:13:03 1.17
+++ MITgcm/pkg/seaice/seaice_calc_strainrates.F 2011/10/21 17:32:01 1.18
@@ -1,19 +1,31 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.17 2010/11/05 08:13:03 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.18 2011/10/21 17:32:01 jmc Exp $
C $Name: $
#include "SEAICE_OPTIONS.h"
+#ifdef ALLOW_OBCS
+# include "OBCS_OPTIONS.h"
+#else
+# define OBCS_UVICE_OLD
+#endif
-CStartOfInterface
+CBOP
+C !ROUTINE: SEAICE_CALC_STRAINRATES
+C !INTERFACE:
SUBROUTINE SEAICE_CALC_STRAINRATES(
I uFld, vFld,
O e11Loc, e22Loc, e12Loc,
I iStep, myTime, myIter, myThid )
-C /==========================================================\
-C | SUBROUTINE SEAICE_CALC_STRAINRATES |
-C | o compute strain rates from ice velocities |
-C |==========================================================|
-C | written by Martin Losch, Apr 2007 |
-C \==========================================================/
+
+C !DESCRIPTION: \bv
+C *==========================================================*
+C | SUBROUTINE SEAICE_CALC_STRAINRATES
+C | o compute strain rates from ice velocities
+C *==========================================================*
+C | written by Martin Losch, Apr 2007
+C *==========================================================*
+C \ev
+
+C !USES:
IMPLICIT NONE
C === Global variables ===
@@ -28,30 +40,35 @@
# include "tamc.h"
#endif
+C !INPUT/OUTPUT PARAMETERS:
C === Routine arguments ===
+C uFld :: ice velocity, u-component
+C vFld :: ice velocity, v-component
+C e11Loc :: strain rate tensor, component 1,1
+C e22Loc :: strain rate tensor, component 2,2
+C e12Loc :: strain rate tensor, component 1,2
C iStep :: Sub-time-step number
C myTime :: Simulation time
C myIter :: Simulation timestep number
C myThid :: My Thread Id. number
- INTEGER iStep
- _RL myTime
- INTEGER myIter
- INTEGER myThid
-C ice velocities
_RL uFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
_RL vFld (1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
-C strain rate tensor
_RL e11Loc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL e22Loc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
_RL e12Loc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
-CEndOfInterface
+ INTEGER iStep
+ _RL myTime
+ INTEGER myIter
+ INTEGER myThid
+CEOP
#ifdef SEAICE_CGRID
#ifdef SEAICE_ALLOW_DYNAMICS
+C !LOCAL VARIABLES:
C === Local variables ===
-C i,j,bi,bj - Loop counters
+C i,j,bi,bj :: Loop counters
INTEGER i, j, bi, bj
-C hFacU, hFacV - determine the no-slip boundary condition
+C hFacU, hFacV :: determine the no-slip boundary condition
INTEGER k
_RS hFacU, hFacV, noSlipFac
C auxillary variables that help writing code that
@@ -73,39 +90,49 @@
C for vectorization
DO j=1-Oly,sNy+Oly-1
DO i=1-Olx,sNx+Olx-1
- dudx(I,J) = _recip_dxF(I,J,bi,bj) *
- & (uFld(I+1,J,bi,bj)-uFld(I,J,bi,bj))
- uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I+1,J,bi,bj))
+ dudx(i,j) = _recip_dxF(i,j,bi,bj) *
+ & (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj))
+ uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj))
ENDDO
ENDDO
DO j=1-Oly,sNy+Oly-1
DO i=1-Olx,sNx+Olx-1
- dvdy(I,J) = _recip_dyF(I,J,bi,bj) *
- & (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj))
- vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj))
+ dvdy(i,j) = _recip_dyF(i,j,bi,bj) *
+ & (vFld(i,j+1,bi,bj)-vFld(i,j,bi,bj))
+ vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj))
ENDDO
ENDDO
C evaluate strain rates at C-points
DO j=1-Oly,sNy+Oly-1
DO i=1-Olx,sNx+Olx-1
- e11Loc(I,J,bi,bj) = dudx(I,J) + vave(I,J) * k2AtC(I,J,bi,bj)
- e22Loc(I,J,bi,bj) = dvdy(I,J) + uave(I,J) * k1AtC(I,J,bi,bj)
+ e11Loc(i,j,bi,bj) = dudx(i,j) + vave(i,j) * k2AtC(i,j,bi,bj)
+ e22Loc(i,j,bi,bj) = dvdy(i,j) + uave(i,j) * k1AtC(i,j,bi,bj)
+ ENDDO
+ ENDDO
+#ifndef OBCS_UVICE_OLD
+C-- for OBCS: assume no gradient beyong OB
+ DO j=1-Oly,sNy+Oly-1
+ DO i=1-Olx,sNx+Olx-1
+ e11Loc(i,j,bi,bj) = e11Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
+ e22Loc(i,j,bi,bj) = e22Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
ENDDO
ENDDO
+#endif /* OBCS_UVICE_OLD */
+
C abbreviations at Z-points, need to do them in separate loops
C for vectorization
DO j=1-Oly+1,sNy+Oly
DO i=1-Olx+1,sNx+Olx
- dudy(I,J) = ( uFld(I,J,bi,bj) - uFld(I ,J-1,bi,bj) )
- & * _recip_dyU(I,J,bi,bj)
- uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj))
+ dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i ,j-1,bi,bj) )
+ & * _recip_dyU(i,j,bi,bj)
+ uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i ,j-1,bi,bj))
ENDDO
ENDDO
DO j=1-Oly+1,sNy+Oly
DO i=1-Olx+1,sNx+Olx
- dvdx(I,J) = ( vFld(I,J,bi,bj) - vFld(I-1,J ,bi,bj) )
- & * _recip_dxV(I,J,bi,bj)
- vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J ,bi,bj))
+ dvdx(i,j) = ( vFld(i,j,bi,bj) - vFld(i-1,j ,bi,bj) )
+ & * _recip_dxV(i,j,bi,bj)
+ vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j ,bi,bj))
ENDDO
ENDDO
C evaluate strain rates at Z-points
@@ -113,22 +140,22 @@
DO i=1-Olx+1,sNx+Olx
hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
- e12Loc(I,J,bi,bj) = 0.5 _d 0 * (
- & dudy(I,J) + dvdx(I,J)
- & - k1AtZ(I,J,bi,bj) * vave(I,J)
- & - k2AtZ(I,J,bi,bj) * uave(I,J)
+ e12Loc(i,j,bi,bj) = 0.5 _d 0 * (
+ & dudy(i,j) + dvdx(i,j)
+ & - k1AtZ(i,j,bi,bj) * vave(i,j)
+ & - k2AtZ(i,j,bi,bj) * uave(i,j)
& )
- & *maskC(I ,J ,k,bi,bj)*maskC(I-1,J ,k,bi,bj)
- & *maskC(I ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj)
+ & *maskC(i ,j ,k,bi,bj)*maskC(i-1,j ,k,bi,bj)
+ & *maskC(i ,j-1,k,bi,bj)*maskC(i-1,j-1,k,bi,bj)
& + 2.0 _d 0 * noSlipFac * (
- & 2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU
- & + 2.0 _d 0 * vave(I,J) * _recip_dxV(I,J,bi,bj) * hFacV
+ & 2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU
+ & + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV
& )
C no slip at the boundary implies u(j)+u(j-1)=0 and v(i)+v(i-1)=0
C accross the boundary; this is already accomplished by masking so
C that the following lines are not necessary
-c$$$ & - hFacV * k1AtZ(I,J,bi,bj) * vave(I,J)
-c$$$ & - hFacU * k2AtZ(I,J,bi,bj) * uave(I,J)
+c$$$ & - hFacV * k1AtZ(i,j,bi,bj) * vave(i,j)
+c$$$ & - hFacU * k2AtZ(i,j,bi,bj) * uave(i,j)
ENDDO
ENDDO
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |