/[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.8 by dgoldberg, Mon Oct 8 02:12:47 2012 UTC revision 1.13 by dgoldberg, Sat Jun 8 22:15:34 2013 UTC
# Line 66  c************************************** Line 66  c**************************************
66            rv_old_si(i,j,bi,bj) = 0. _d 0            rv_old_si(i,j,bi,bj) = 0. _d 0
67            zu_old_si(i,j,bi,bj) = 0. _d 0            zu_old_si(i,j,bi,bj) = 0. _d 0
68            zv_old_si(i,j,bi,bj) = 0. _d 0            zv_old_si(i,j,bi,bj) = 0. _d 0
69            h_after_uflux_si(i,j,bi,bj) = 0. _d 0  !          h_after_uflux_si(i,j,bi,bj) = 0. _d 0
70  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
71            streamice_taubx (i,j,bi,bj) = 0. _d 0            streamice_taubx (i,j,bi,bj) = 0. _d 0
72            streamice_tauby (i,j,bi,bj) = 0. _d 0            streamice_tauby (i,j,bi,bj) = 0. _d 0
# Line 89  c************************************** Line 89  c**************************************
89        CALL STREAMICE_DUMP( mytime, myiter, myThid )        CALL STREAMICE_DUMP( mytime, myiter, myThid )
90    
91  ! NEW DIRECTIVES - DNG  ! NEW DIRECTIVES - DNG
92  #ifdef ALLOW_AUTODIFF_TAMC  !#ifdef ALLOW_AUTODIFF_TAMC
93  CADJ STORE float_frac_streamice  = comlev1, key = ikey_dynamics,  !CADJ STORE float_frac_streamice  = comlev1, key = ikey_dynamics,
94  CADJ &     kind = isbyte  !CADJ &     kind = isbyte
95  CADJ STORE surf_el_streamice  = comlev1, key = ikey_dynamics,  !CADJ STORE surf_el_streamice  = comlev1, key = ikey_dynamics,
96  CADJ &     kind = isbyte  !CADJ &     kind = isbyte
97  CADJ STORE base_el_streamice  = comlev1, key = ikey_dynamics,  !CADJ STORE base_el_streamice  = comlev1, key = ikey_dynamics,
98  CADJ &     kind = isbyte  !CADJ &     kind = isbyte
99  #endif  !#endif
100  ! NEW DIRECTIVES - DNG  ! NEW DIRECTIVES - DNG
101    
102        if (myIter.eq.0) then  #ifdef ALLOW_GENTIM2D_CONTROL
103         CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL CTRL_MAP_GENTIM2D (myTime, myIter, myThid)
104        endif  #endif
105    
106          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
111        CALL STREAMICE_VELMASK_UPD (myThid)        CALL STREAMICE_VELMASK_UPD (myThid)
112    
113    #ifdef ALLOW_STREAMICE_FLUX_CONTROL
114          CALL STREAMICE_APPLY_FLUX_CTRL ( myTime, myIter, myThid )
115    #endif      
116    
117        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
118                
119        if(.not.STREAMICE_diagnostic_only) THEN        if(.not.STREAMICE_diagnostic_only) THEN
120    
121         CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )           CALL STREAMICE_ADVECT_THICKNESS ( myThid, myIter, deltaT )  
122    
123        endif        endif
124          
125  ! CALL AT END INSTEAD OF BEGINNING - DNG  ! CALL AT END INSTEAD OF BEGINNING - DNG
126        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
127    
128    
129    
130    
131  #endif  #endif
132        RETURN        RETURN
133        END        END
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22