/[MITgcm]/MITgcm_contrib/shelfice_remeshing/CLEAN/code/shelfice_thermodynamics.F
ViewVC logotype

Diff of /MITgcm_contrib/shelfice_remeshing/CLEAN/code/shelfice_thermodynamics.F

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

revision 1.1 by dgoldberg, Mon Dec 7 17:08:44 2015 UTC revision 1.2 by dgoldberg, Mon Dec 7 22:05:50 2015 UTC
# Line 752  c       IF ( R_shelfice(i,j,bi,bj) .EQ. Line 752  c       IF ( R_shelfice(i,j,bi,bj) .EQ.
752       &      SHICEHAF/SHW)+((1+SHA)/2)       &      SHICEHAF/SHW)+((1+SHA)/2)
753    
754    
755              ENDIF  c            ENDIF
756  #endif /* ALLOW_STREAMICE */  #endif /* ALLOW_STREAMICE */
757    
758            ENDDO            ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22