/[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.2 - (hide annotations) (download)
Mon Dec 27 20:34:11 2004 UTC (19 years, 4 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint57m_post, checkpoint58e_post, checkpoint57v_post, checkpoint57f_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57f_pre, checkpoint57g_post, checkpoint57h_pre, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint57g_pre, checkpoint58h_post, checkpoint57e_post, checkpoint58j_post, checkpoint57h_post, checkpoint57y_pre, checkpoint57c_pre, checkpoint57o_post, checkpoint57r_post, checkpoint57k_post, checkpoint57d_post, checkpoint57i_post, checkpoint58, checkpoint57h_done, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint57z_post, eckpoint57e_pre, checkpoint58c_post, checkpoint58k_post, checkpoint57c_post, checkpoint57l_post
Changes since 1.1: +1 -5 lines 
o added seaice_summary.F and removed obsolete ALLOW_SEAICE's from pkg/seaice
1 dimitri 1.2 C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_exch_uv.F,v 1.1 2003/12/14 04:56:18 dimitri Exp $
2 dimitri 1.1 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     C == Local variables ==
27     INTEGER i,j,k,bi,bj
28     _RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29     _RL tempV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30    
31     C-- Update overlap regions
32     DO k=1,3
33     DO bj=myByLo(myThid),myByHi(myThid)
34     DO bi=myBxLo(myThid),myBxHi(myThid)
35     DO j=1-Oly,sNy+OLy
36     DO i=1-OLx,sNx+OLx
37     tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj)
38     tempV(i,j,bi,bj)=vfld(i,j,k,bi,bj)
39     ENDDO
40     ENDDO
41     ENDDO
42     ENDDO
43     CALL EXCH_UV_XY_RL(tempU,tempV,.TRUE.,myThid)
44     DO bj=myByLo(myThid),myByHi(myThid)
45     DO bi=myBxLo(myThid),myBxHi(myThid)
46     DO j=1-Oly,sNy+OLy
47     DO i=1-OLx,sNx+OLx
48     ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj)
49     vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj)
50     ENDDO
51     ENDDO
52     ENDDO
53     ENDDO
54     ENDDO
55    
56     RETURN
57     END
  ViewVC Help
Powered by ViewVC 1.1.22