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

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

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

revision 1.2 by heimbach, Wed May 2 02:36:01 2012 UTC revision 1.3 by dgoldberg, Thu Jul 26 16:13:18 2012 UTC
# Line 37  C     === Global variables === Line 37  C     === Global variables ===
37        _RL thick_bd        _RL thick_bd
38        _RL SLOPE_LIMITER        _RL SLOPE_LIMITER
39        _RL sec_per_year, time_step_loc        _RL sec_per_year, time_step_loc
40          CHARACTER*(MAX_LEN_MBUF) msgBuf
41        external SLOPE_LIMITER        external SLOPE_LIMITER
42    
43        sec_per_year = 365.*86400.        sec_per_year = 365.*86400.
# Line 69  CADJ STORE streamice_hmask  = comlev1, k Line 70  CADJ STORE streamice_hmask  = comlev1, k
70         ENDDO         ENDDO
71        ENDDO        ENDDO
72    
73  !       PRINT *, "H in last row ", H_streamice(81,20,1,1)  
74    
75  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
76  CADJ STORE h_after_uflux_si = comlev1, key=ikey_dynamics  CADJ STORE h_after_uflux_si = comlev1, key=ikey_dynamics
# Line 81  CADJ STORE streamice_hmask  = comlev1, k Line 82  CADJ STORE streamice_hmask  = comlev1, k
82       O   h_after_uflux_SI,       O   h_after_uflux_SI,
83       I   time_step_loc )       I   time_step_loc )
84    
85  !       PRINT *, "H in last row ", H_streamice(81,20,1,1)  
86    
87        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
88         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 104  CADJ STORE streamice_hmask  = comlev1, k Line 105  CADJ STORE streamice_hmask  = comlev1, k
105       O   h_after_vflux_SI,       O   h_after_vflux_SI,
106       I   time_step_loc )       I   time_step_loc )
107    
108  !       PRINT *, "H in last row ", H_streamice(81,20,1,1)  
109    
110        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
111         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 119  CADJ STORE streamice_hmask  = comlev1, k Line 120  CADJ STORE streamice_hmask  = comlev1, k
120         ENDDO         ENDDO
121        ENDDO        ENDDO
122    
123  !       PRINT *, "H in last row ", H_streamice(81,20,1,1)  
124    
125        CALL STREAMICE_ADV_FRONT ( myThid, time_step_loc )        CALL STREAMICE_ADV_FRONT ( myThid, time_step_loc )
126    
127  !       PRINT *, "H in last row ", H_streamice(81,20,1,1)  
128    
129        _EXCH_XY_RL( H_streamice, myThid )        _EXCH_XY_RL( H_streamice, myThid )
130        _EXCH_XY_RL( area_shelf_streamice, myThid )        _EXCH_XY_RL( area_shelf_streamice, myThid )
131        _EXCH_XY_RL( STREAMICE_hmask, myThid )        _EXCH_XY_RL( STREAMICE_hmask, myThid )
132                
133        PRINT *, "END STREAMICE_ADVECT_THICKNESS"        WRITE(msgBuf,'(A)') 'END STREAMICE_ADVECT_THICKNESS'
134           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
135         &                     SQUEEZE_RIGHT , 1)
136          
137  #endif  #endif
138        END        END
139    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22