/[MITgcm]/MITgcm/pkg/seaice/seaice_exch_uv.F
ViewVC logotype

Annotation of /MITgcm/pkg/seaice/seaice_exch_uv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Sun Dec 14 04:56:18 2003 UTC (20 years, 5 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint53f_post, checkpoint54a_pre, checkpoint55c_post, checkpoint53b_pre, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52n_post, checkpoint52j_post, checkpoint52e_post, checkpoint57b_post, checkpoint53c_post, checkpoint53d_post, checkpoint55d_pre, checkpoint57a_post, checkpoint55j_post, checkpoint56b_post, checkpoint52j_pre, checkpoint54a_post, checkpoint55h_post, checkpoint54b_post, checkpoint54d_post, checkpoint56c_post, checkpoint54e_post, checkpoint55b_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint55a_post, hrcube5, checkpoint53b_post, checkpoint55g_post, checkpoint55f_post, checkpoint52l_post, checkpoint52k_post, checkpoint57a_pre, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52d_post, checkpoint53g_post, checkpoint52f_post, checkpoint54f_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint52i_post, checkpoint55i_post, checkpoint52i_pre, checkpoint52h_pre, checkpoint52f_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint56a_post, checkpoint55d_post 
added "exch_uv" exchanges to pkg/seaice
1 dimitri 1.1 C $Header: $
2     C $Name: $
3    
4     #include "SEAICE_OPTIONS.h"
5    
6     CStartOfInterface
7     SUBROUTINE SEAICE_EXCH_UV ( ufld, vfld, myThid )
8     C /==========================================================\
9     C | SUBROUTINE SEAICE_EXCH_UV |
10     C | o RL exchange routine with k=3 |
11     C |==========================================================|
12     C \==========================================================/
13     IMPLICIT NONE
14    
15     C == Global variables ===
16     #include "SIZE.h"
17     #include "EEPARAMS.h"
18    
19     C == Routine arguments ==
20     C myThid - Thread number for this instance of the routine.
21     _RL ufld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
22     _RL vfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,3,nSx,nSy)
23     INTEGER myThid
24     CEndofinterface
25    
26     #ifdef ALLOW_SEAICE
27    
28     C == Local variables ==
29     INTEGER i,j,k,bi,bj
30     _RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31     _RL tempV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
32    
33     C-- Update overlap regions
34     DO k=1,3
35     DO bj=myByLo(myThid),myByHi(myThid)
36     DO bi=myBxLo(myThid),myBxHi(myThid)
37     DO j=1-Oly,sNy+OLy
38     DO i=1-OLx,sNx+OLx
39     tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj)
40     tempV(i,j,bi,bj)=vfld(i,j,k,bi,bj)
41     ENDDO
42     ENDDO
43     ENDDO
44     ENDDO
45     CALL EXCH_UV_XY_RL(tempU,tempV,.TRUE.,myThid)
46     DO bj=myByLo(myThid),myByHi(myThid)
47     DO bi=myBxLo(myThid),myBxHi(myThid)
48     DO j=1-Oly,sNy+OLy
49     DO i=1-OLx,sNx+OLx
50     ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj)
51     vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj)
52     ENDDO
53     ENDDO
54     ENDDO
55     ENDDO
56     ENDDO
57    
58     #endif /* ALLOW_SEAICE */
59    
60     RETURN
61     END
  ViewVC Help
Powered by ViewVC 1.1.22