/[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.9 by dgoldberg, Mon Oct 8 02:25:15 2012 UTC revision 1.10 by dgoldberg, Wed Oct 10 21:11:46 2012 UTC
# 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        if (myIter.eq.0) then
103         CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
104        endif        endif
   
105        CALL STREAMICE_VELMASK_UPD (myThid)        CALL STREAMICE_VELMASK_UPD (myThid)
106        CALL STREAMICE_VEL_SOLVE( myThid )        CALL STREAMICE_VEL_SOLVE( myThid )
107                
# Line 111  CADJ &     kind = isbyte Line 110  CADJ &     kind = isbyte
110         CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )           CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
111    
112        endif        endif
113          
114  ! CALL AT END INSTEAD OF BEGINNING - DNG  ! CALL AT END INSTEAD OF BEGINNING - DNG
115        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )        CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
116    
117    
118    
119    
120  #endif  #endif
121        RETURN        RETURN
122        END        END
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22