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

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

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

revision 1.11 by dgoldberg, Tue Feb 12 17:22:41 2013 UTC revision 1.12 by dgoldberg, Thu Mar 7 15:23:19 2013 UTC
# Line 99  c************************************** Line 99  c**************************************
99  !#endif  !#endif
100  ! NEW DIRECTIVES - DNG  ! NEW DIRECTIVES - DNG
101    
102    #ifdef ALLOW_GENTIM2D_CONTROL
103        CALL CTRL_MAP_GENTIM2D (myTime, myIter, myThid)        CALL CTRL_MAP_GENTIM2D (myTime, myIter, myThid)
104    #endif
105    
106        if (myIter.eq.0) then        if (myIter.eq.0) then
107        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
108          CALL WRITE_FLD_XY_RL
109         & ("surf_el_init","",surf_el_streamice,0,myThid)
110        endif        endif
111        CALL STREAMICE_VELMASK_UPD (myThid)        CALL STREAMICE_VELMASK_UPD (myThid)
112        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22