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

Diff of /MITgcm_contrib/gael/pkg/smooth/smooth_diff3D.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 77  c initialization to 0: Line 77  c initialization to 0:
77         ENDDO         ENDDO
78        ENDDO        ENDDO
79    
80        _EXCH_XYZ_R8 ( fld_in , myThid )        _EXCH_XYZ_RL ( fld_in , myThid )
81        _EXCH_XYZ_R8 ( gt_in , myThid )        _EXCH_XYZ_RL ( gt_in , myThid )
82        _EXCH_XYZ_R8 ( gtm1_in , myThid )        _EXCH_XYZ_RL ( gtm1_in , myThid )
83    
84  #ifdef ALLOW_TAMC_CHECKPOINTING  #ifdef ALLOW_TAMC_CHECKPOINTING
85    
# Line 139  CADJ & key = key_in*nchklev_1 + ilev_1 Line 139  CADJ & key = key_in*nchklev_1 + ilev_1
139         ENDDO         ENDDO
140        ENDDO        ENDDO
141    
142        _EXCH_XYZ_R8 ( gt_in , myThid )        _EXCH_XYZ_RL ( gt_in , myThid )
143    
144  c compute gT_in:  c compute gT_in:
145  cc     ikey_dynamics=iloop  cc     ikey_dynamics=iloop
# Line 182  CADJ & key = key_in*nchklev_1 + ilev_1 Line 182  CADJ & key = key_in*nchklev_1 + ilev_1
182         ENDDO         ENDDO
183        ENDDO        ENDDO
184    
185        _EXCH_XYZ_R8 ( fld_in , myThid )        _EXCH_XYZ_RL ( fld_in , myThid )
186        _EXCH_XYZ_R8 ( gt_in , myThid )        _EXCH_XYZ_RL ( gt_in , myThid )
187        _EXCH_XYZ_R8 ( gtm1_in , myThid )        _EXCH_XYZ_RL ( gtm1_in , myThid )
188    
189  c      call smooth_print (iloop,fld_in,mythid)  c      call smooth_print (iloop,fld_in,mythid)
190    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22