/[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.4 by molod, Thu Jun 10 20:53:19 2004 UTC revision 1.5 by molod, Mon Jul 26 18:45:17 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_EEOPTIONS.h"  
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30                                                                                                                                                                            
31         integer myThid, numlevs         integer myThid, numlevs
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22