/[MITgcm]/MITgcm/pkg/aim/aim_aim2dyn_exchanges.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_aim2dyn_exchanges.F

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

revision 1.2 by adcroft, Fri Aug 3 19:01:34 2001 UTC revision 1.3 by jmc, Fri Sep 27 20:05:11 2002 UTC
# Line 15  C     \================================= Line 15  C     \=================================
15        IMPLICIT NONE        IMPLICIT NONE
16    
17  C     == Global data ==  C     == Global data ==
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
21  #include "GRID.h"  #include "GRID.h"
22  #include "DYNVARS.h"  #include "DYNVARS.h"
23    
 #ifdef ALLOW_AIM  
24  #include "AIM2DYN.h"  #include "AIM2DYN.h"
 #endif /* ALLOW_AIM */  
25    
26  C     == Routine arguments ==  C     == Routine arguments ==
27        _RL myCurrentTime        _RL myCurrentTime
28        INTEGER myThid        INTEGER myThid
29  CEndOfInterface  CEndOfInterface
30    
31    #ifdef ALLOW_AIM
32    
33  C     == Local variables ==  C     == Local variables ==
34  C     I,J,K - Loop counters  C     I,J,K - Loop counters
35  C     bi,bj  C     bi,bj
36        INTEGER I,J,K, bi,bj  c     INTEGER I,J,K, bi,bj
   
 #ifdef ALLOW_AIM  
37    
38        _EXCH_XY_R8( aim_drag, myThid )        _EXCH_XY_R8( aim_drag, myThid )
39  c     _EXCH_XYZ_R8( gT, myThid )  c     _EXCH_XYZ_R8( gT, myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22