/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_init_varia.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/streamice_init_varia.F

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

revision 1.6 by dgoldberg, Thu Sep 27 20:29:00 2012 UTC revision 1.7 by dgoldberg, Thu Oct 4 15:40:16 2012 UTC
# Line 59  C     ZERO OUT FLOATING POINT ARRAYS Line 59  C     ZERO OUT FLOATING POINT ARRAYS
59            BDOT_streamice(i,j,bi,bj) = 0. _d 0            BDOT_streamice(i,j,bi,bj) = 0. _d 0
60  !           C_basal_friction(i,j,bi,bj) = C_basal_fric_const  !           C_basal_friction(i,j,bi,bj) = C_basal_fric_const
61            A_glen(i,j,bi,bj) = A_glen_isothermal            A_glen(i,j,bi,bj) = A_glen_isothermal
62              H_streamice_prev(i,j,bi,bj) = 0. _d 0
63  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
64            ru_old_si(i,j,bi,bj) = 0. _d 0            ru_old_si(i,j,bi,bj) = 0. _d 0
65            rv_old_si(i,j,bi,bj) = 0. _d 0            rv_old_si(i,j,bi,bj) = 0. _d 0
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22