/[MITgcm]/MITgcm/pkg/fizhi/AtoC.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/AtoC.F

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

revision 1.3 by edhill, Wed May 5 00:39:21 2004 UTC revision 1.6 by molod, Wed Nov 17 16:23:29 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "FIZHI_OPTIONS.h"
5         subroutine AtoC(myThid,fieldin1,fieldin2,mask,im1,im2,jm1,jm2,         subroutine AtoC(myThid,fieldin1,fieldin2,mask,im1,im2,jm1,jm2,
6       .  numlevs,Nsx,Nsy,idim1,idim2,jdim1,jdim2,fieldout1,fieldout2)       .  numlevs,Nsx,Nsy,idim1,idim2,jdim1,jdim2,fieldout1,fieldout2)
7  c----------------------------------------------------------------------  c----------------------------------------------------------------------
# Line 25  c Line 26  c
26  c Call:   exch_uv_agrid_xyz_RL - exchange on a-grid  c Call:   exch_uv_agrid_xyz_RL - exchange on a-grid
27  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
28         implicit none         implicit none
 #include "CPP_OPTIONS.h"  
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30                                                                                                                                                                            
31         integer myThid, numlevs         integer myThid, numlevs
# Line 40  c--------------------------------------- Line 40  c---------------------------------------
40         integer i, j, L, bi, bj         integer i, j, L, bi, bj
41    
42  c Call the exchange routine to fill in the halo regions  c Call the exchange routine to fill in the halo regions
43         call exch_uv_agrid_xyz_RL (fieldin1,fieldin2,myThid)         call exch_uv_agrid_xyz_RL (fieldin1,fieldin2,.true.,myThid)
44    
45  c Now take average  c Now take average
46         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22