/[MITgcm]/MITgcm/pkg/streamice/streamice_advect_2dtracer.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_advect_2dtracer.F

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

revision 1.3 by jmc, Tue Sep 9 23:09:21 2014 UTC revision 1.4 by mlosch, Tue Jul 25 11:30:01 2017 UTC
# Line 222  CADJ STORE trac2d  = comlev1, key=ikey_d Line 222  CADJ STORE trac2d  = comlev1, key=ikey_d
222    
223  #endif  #endif
224    
225        _EXCH_XY_RL (trac2d, myThid)        _EXCH_XY_RL(trac2d, myThid)
226    
227        WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS'        WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS'
228         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22