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

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

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

revision 1.6 by dgoldberg, Wed Jan 9 21:56:18 2013 UTC revision 1.7 by dgoldberg, Thu Mar 7 15:12:19 2013 UTC
# Line 44  C     === Global variables === Line 44  C     === Global variables ===
44    
45        time_step_loc = time_step / sec_per_year        time_step_loc = time_step / sec_per_year
46    
47          PRINT *, "time_step_loc ", time_step_loc
48    
49  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
50  CADJ STORE streamice_hmask  = comlev1, key=ikey_dynamics  CADJ STORE streamice_hmask  = comlev1, key=ikey_dynamics
51  #endif  #endif
# Line 146  CADJ STORE streamice_hmask  = comlev1, k Line 148  CADJ STORE streamice_hmask  = comlev1, k
148                  STREAMICE_hmask(i,j,bi,bj) = 0.                  STREAMICE_hmask(i,j,bi,bj) = 0.
149               ELSE               ELSE
150                 H_streamice (i,j,bi,bj) =                 H_streamice (i,j,bi,bj) =
151       &          H_streamice (i,j,bi,bj) + TMB       &          H_streamice (i,j,bi,bj) + TMB * time_step_loc
152               ENDIF               ENDIF
153             ENDIF             ENDIF
154           ENDDO           ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22