Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
--- MITgcm/pkg/seaice/seaice_calc_strainrates.F 2009/06/03 08:48:07 1.13
+++ MITgcm/pkg/seaice/seaice_calc_strainrates.F 2009/06/24 08:23:38 1.14
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.13 2009/06/03 08:48:07 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_calc_strainrates.F,v 1.14 2009/06/24 08:23:38 mlosch Exp $
C $Name: $
#include "SEAICE_OPTIONS.h"
@@ -7,7 +7,7 @@
SUBROUTINE SEAICE_CALC_STRAINRATES(
I uFld, vFld,
O e11Loc, e22Loc, e12Loc,
- I kSize, iStep, myTime, myIter, myThid )
+ I iStep, myTime, myIter, myThid )
C /==========================================================\
C | SUBROUTINE SEAICE_CALC_STRAINRATES |
C | o compute strain rates from ice velocities |
@@ -33,15 +33,13 @@
C myTime :: Simulation time
C myIter :: Simulation timestep number
C myThid :: My Thread Id. number
-C kSize :: length of 3rd dimension of velocity variables
INTEGER iStep
_RL myTime
INTEGER myIter
INTEGER myThid
- INTEGER kSize
C ice velocities
- _RL uFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize,nSx,nSy)
- _RL vFld(1-Olx:sNx+Olx,1-Oly:sNy+Oly,kSize,nSx,nSy)
+ _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)
@@ -68,14 +66,14 @@
DO i=1-Olx,sNx+Olx-1
C evaluate strain rates
e11Loc(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) *
- & (uFld(I+1,J,1,bi,bj)-uFld(I,J,1,bi,bj))
+ & (uFld(I+1,J,bi,bj)-uFld(I,J,bi,bj))
& +HALF*
- & (vFld(I,J,1,bi,bj)+vFld(I,J+1,1,bi,bj))
+ & (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj))
& * k2AtC(I,J,bi,bj)
e22Loc(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) *
- & (vFld(I,J+1,1,bi,bj)-vFld(I,J,1,bi,bj))
+ & (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj))
& +HALF*
- & (uFld(I,J,1,bi,bj)+uFld(I+1,J,1,bi,bj))
+ & (uFld(I,J,bi,bj)+uFld(I+1,J,bi,bj))
& * k1AtC(I,J,bi,bj)
ENDDO
ENDDO
@@ -84,30 +82,30 @@
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) = HALF*(
- & ( uFld(I,J,1,bi,bj) - uFld(I ,J-1,1,bi,bj) )
+ & ( uFld(I,J,bi,bj) - uFld(I ,J-1,bi,bj) )
& * _recip_dyU(I,J,bi,bj)
- & + ( vFld(I,J,1,bi,bj) - vFld(I-1,J ,1,bi,bj) )
+ & + ( vFld(I,J,bi,bj) - vFld(I-1,J ,bi,bj) )
& * _recip_dxV(I,J,bi,bj)
& - k1AtZ(I,J,bi,bj)
- & * 0.5 _d 0 * (vFld(I,J,1,bi,bj)+vFld(I-1,J ,1,bi,bj))
+ & * 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J ,bi,bj))
& - k2AtZ(I,J,bi,bj)
- & * 0.5 _d 0 * (uFld(I,J,1,bi,bj)+uFld(I ,J-1,1,bi,bj))
+ & * 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,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 * (
- & ( uFld(I,J,1,bi,bj) + uFld(I ,J-1,1,bi,bj) )
+ & ( uFld(I,J,bi,bj) + uFld(I ,J-1,bi,bj) )
& * _recip_dyU(I,J,bi,bj) * hFacU
- & + ( vFld(I,J,1,bi,bj) + vFld(I-1,J ,1,bi,bj) )
+ & + ( vFld(I,J,bi,bj) + vFld(I-1,J ,bi,bj) )
& * _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)
-c$$$ & * 0.5 _d 0 * (vFld(I,J,1,bi,bj)+vFld(I-1,J ,1,bi,bj))
+c$$$ & * 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J ,bi,bj))
c$$$ & - hFacU * k2AtZ(I,J,bi,bj)
-c$$$ & * 0.5 _d 0 * (uFld(I,J,1,bi,bj)+uFld(I ,J-1,1,bi,bj))
+c$$$ & * 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj))
ENDDO
ENDDO
@@ -123,25 +121,25 @@
DO i=1-Olx,sNx+Olx-1
C evaluate strain rates
e11Loc(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) *
- & (uFld(I+1,J,1,bi,bj)-uFld(I,J,1,bi,bj))
+ & (uFld(I+1,J,bi,bj)-uFld(I,J,bi,bj))
& -HALF*
- & (vFld(I,J,1,bi,bj)+vFld(I,J+1,1,bi,bj))
+ & (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj))
& * _tanPhiAtU(I,J,bi,bj)*recip_rSphere
e22Loc(I,J,bi,bj) = _recip_dyF(I,J,bi,bj) *
- & (vFld(I,J+1,1,bi,bj)-vFld(I,J,1,bi,bj))
+ & (vFld(I,J+1,bi,bj)-vFld(I,J,bi,bj))
C one metric term is missing
ENDDO
ENDDO
DO j=1-Oly+1,sNy+Oly
DO i=1-Olx+1,sNx+Olx
e12Loc(I,J,bi,bj) = HALF*(
- & (uFld(I ,J ,1,bi,bj) * _dxC(I ,J ,bi,bj)
- & -uFld(I ,J-1,1,bi,bj) * _dxC(I ,J-1,bi,bj)
- & +vFld(I ,J ,1,bi,bj) * _dyC(I ,J ,bi,bj)
- & -vFld(I-1,J ,1,bi,bj) * _dyC(I-1,J ,bi,bj))
+ & (uFld(I ,J ,bi,bj) * _dxC(I ,J ,bi,bj)
+ & -uFld(I ,J-1,bi,bj) * _dxC(I ,J-1,bi,bj)
+ & +vFld(I ,J ,bi,bj) * _dyC(I ,J ,bi,bj)
+ & -vFld(I-1,J ,bi,bj) * _dyC(I-1,J ,bi,bj))
& * recip_rAz(I,J,bi,bj)
& +
- & 0.25 _d 0 * (uFld(I,J,1,bi,bj)+uFld(I ,J-1,1,bi,bj))
+ & 0.25 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj))
& * ( _tanPhiAtU(I,J,bi,bj) + _tanPhiAtU(I,J-1,bi,bj) )
& *recip_rSphere
& )
@@ -159,12 +157,12 @@
e12Loc(I,J,bi,bj) = e12Loc(I,J,bi,bj)
& + recip_rAz(i,j,bi,bj) * 2. _d 0 *
- & ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j ,1,bi,bj)
- & + _dxC(i,j, bi,bj)*uFld(i,j-1,1,bi,bj) )
- & + hFacV * ( _dyC(i-1,j,bi,bj)*vFld(i ,j,1,bi,bj)
- & + _dyC(i, j,bi,bj)*vFld(i-1,j,1,bi,bj) ) )
+ & ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j ,bi,bj)
+ & + _dxC(i,j, bi,bj)*uFld(i,j-1,bi,bj) )
+ & + hFacV * ( _dyC(i-1,j,bi,bj)*vFld(i ,j,bi,bj)
+ & + _dyC(i, j,bi,bj)*vFld(i-1,j,bi,bj) ) )
& - hFacU
- & * 0.25 _d 0 * (uFld(I,J,1,bi,bj)+uFld(I ,J-1,1,bi,bj))
+ & * 0.25 _d 0 * (uFld(I,J,bi,bj)+uFld(I ,J-1,bi,bj))
& * ( _tanPhiAtU(I,J,bi,bj) + _tanPhiAtU(I,J-1,bi,bj) )
& *recip_rSphere
C one metric term is missing
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |