/[MITgcm]/MITgcm_contrib/gael/pkg/smooth/smooth_diff2D.F
ViewVC logotype

Diff of /MITgcm_contrib/gael/pkg/smooth/smooth_diff2D.F

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

revision 1.1 by gforget, Tue Jun 19 18:23:18 2007 UTC revision 1.2 by gforget, Fri Oct 16 03:36:34 2009 UTC
# Line 61  c     & *sqrt(recip_rA(i,j,bi,bj)) Line 61  c     & *sqrt(recip_rA(i,j,bi,bj))
61         ENDDO         ENDDO
62        ENDDO        ENDDO
63    
64        _EXCH_XY_R8 ( fld_in , myThid )        _EXCH_XY_RL ( fld_in , myThid )
65        _EXCH_XY_R8 ( gt_in , myThid )        _EXCH_XY_RL ( gt_in , myThid )
66        _EXCH_XY_R8 ( gtm1_in , myThid )        _EXCH_XY_RL ( gtm1_in , myThid )
67        _EXCH_XY_R8 ( wc01_2D_mask , myThid )        _EXCH_XY_RL ( wc01_2D_mask , myThid )
68    
69  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
70    
# Line 174  c time step: Line 174  c time step:
174           ENDDO           ENDDO
175          ENDDO          ENDDO
176    
177        _EXCH_XY_R8 ( gt_in , myThid )        _EXCH_XY_RL ( gt_in , myThid )
178        _EXCH_XY_R8 ( fld_in , myThid )        _EXCH_XY_RL ( fld_in , myThid )
179        _EXCH_XY_R8 ( gtm1_in , myThid )        _EXCH_XY_RL ( gtm1_in , myThid )
180    
181  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
182        endif        endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22