/[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.13 by dgoldberg, Sat Jun 8 22:15:34 2013 UTC revision 1.14 by dgoldberg, Wed Aug 27 19:29:14 2014 UTC
# Line 99  c************************************** Line 99  c**************************************
99  !#endif  !#endif
100  ! NEW DIRECTIVES - DNG  ! NEW DIRECTIVES - DNG
101    
102  #ifdef ALLOW_GENTIM2D_CONTROL  !#ifdef ALLOW_GENTIM2D_CONTROL
103        CALL CTRL_MAP_GENTIM2D (myTime, myIter, myThid)  !      CALL CTRL_MAP_GENTIM2D (myTime, myIter, myThid)
104  #endif  !#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 )
# Line 112  c************************************** Line 112  c**************************************
112    
113  #ifdef ALLOW_STREAMICE_FLUX_CONTROL  #ifdef ALLOW_STREAMICE_FLUX_CONTROL
114        CALL STREAMICE_APPLY_FLUX_CTRL ( myTime, myIter, myThid )        CALL STREAMICE_APPLY_FLUX_CTRL ( myTime, myIter, myThid )
115  #endif        #endif    
116    
117    #ifdef ALLOW_STREAMICE_TIMEDEP_FORCING
118          CALL STREAMICE_FIELDS_LOAD( myTime, myIter, myThid )
119    #endif
120    
121    
122        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
123                
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22