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

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

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

revision 1.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.3 by dgoldberg, Tue Sep 18 17:06:48 2012 UTC
# Line 65  c         ice thickness does not take up Line 65  c         ice thickness does not take up
65         ENDDO         ENDDO
66        ENDDO        ENDDO
67    
68        _EXCH_XY_RL(float_frac_streamice, myThid )  !       _EXCH_XY_RL(float_frac_streamice, myThid )
69        _EXCH_XY_RL(base_el_streamice, myThid )  !       _EXCH_XY_RL(base_el_streamice, myThid )
70        _EXCH_XY_RL(surf_el_streamice, myThid )  !       _EXCH_XY_RL(surf_el_streamice, myThid )
71    
72                
73    
# Line 75  c         ice thickness does not take up Line 75  c         ice thickness does not take up
75  #endif /* ALLOW_STREAMICE */  #endif /* ALLOW_STREAMICE */
76    
77        RETURN        RETURN
       END  
78          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22