dgoldberg/streamice/streamice_solo_timestep.F

C $Header: /u/gcmpack/MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F,v 1.5 2012/09/18 17:06:48 dgoldberg Exp $
C $Name:  $

#include "STREAMICE_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

CBOP
      SUBROUTINE STREAMICE_SOLO_TIMESTEP ( myThid, myIter,
     &                                        iLoop, myTime )

C     /============================================================\
C     | SUBROUTINE                                                 |   
C     | o                                                          |
C     |============================================================|
C     |                                                            |
C     \============================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "GRID.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "STREAMICE.h"
#ifdef ALLOW_AUTODIFF_TAMC
# include "tamc.h"
# include "STREAMICE_ADV.h"
# include "STREAMICE_BDRY.h"
# include "STREAMICE_CG.h"
#endif


      INTEGER myThid, myIter, iLoop
      _RL myTime
      

#ifdef ALLOW_STREAMICE

      INTEGER i, j, bi, bj, ki, kj
!       _RL Iratio, Imin_ratio, time_step_remain, local_u_max
!       _RL ratio, min_ratio
!       _RL local_v_max, time_step_int, min_time_step
      CHARACTER*(MAX_LEN_MBUF) msgBuf
!       LOGICAL modelEnd

#ifdef ALLOW_AUTODIFF_TAMC
c**************************************
#include "streamice_ad_check_lev1_dir.h"
c**************************************
#endif

!       time_step_remain = deltaT    
!       min_time_step = 1000.0
!       n_interm = 0

#ifdef ALLOW_AUTODIFF_TAMC

      DO bj=myByLo(myThid),myByHi(myThid)
       DO bi=myBxLo(myThid),myBxHi(myThid)
        DO j=1-OLy,sNy+OLy
         DO i=1-OLx,sNx+OLx
          STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
          STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
          ru_old_si(i,j,bi,bj) = 0. _d 0
          rv_old_si(i,j,bi,bj) = 0. _d 0
          zu_old_si(i,j,bi,bj) = 0. _d 0
          zv_old_si(i,j,bi,bj) = 0. _d 0
          h_after_uflux_si(i,j,bi,bj) = 0. _d 0
#ifdef STREAMICE_HYBRID_STRESS
          streamice_taubx (i,j,bi,bj) = 0. _d 0
          streamice_tauby (i,j,bi,bj) = 0. _d 0
#endif
         ENDDO
        ENDDO
       ENDDO
      ENDDO

#endif


!       do while (time_step_remain .gt. 0. _d 0)
! 
!        n_interm = n_interm + 1
!        Imin_ratio = 1.0e-16
! 
!        DO bj = myByLo(myThid), myByHi(myThid)
!         DO bi = myBxLo(myThid), myBxHi(myThid)
!          DO j=1,sNy
!           DO i=1,sNx
!            
!            local_u_max = 0 
!            local_v_max = 0
!            
!            if (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) then
!             do ki = 0,1
!              do kj = 0,1
!               local_u_max = 
!      &         max (local_u_max, abs(U_streamice(i+ki,j+kj,bi,bj)))
!               local_v_max = 
!      &         max (local_v_max, abs(V_streamice(i+ki,j+kj,bi,bj)))
!              enddo
!             enddo
! 
!             Iratio = max (local_u_max/dxF(i,j,bi,bj) , 
!      &       local_v_max/dyF(i,j,bi,bj))
!             Imin_ratio = max (Imin_ratio, Iratio)
!            endif
!   
!           enddo
!          enddo
!         enddo
!        enddo
! 
!        CALL GLOBAL_MAX_R8 (Imin_ratio, myThid)
!        min_ratio = 1./(Imin_ratio+1.e-12)
!        time_step_int = 
!      &  min(streamice_CFL_factor*min_ratio*(365*86400),
!      &   deltaT)
!        
!        if (time_step_int .lt. min_time_step) then
!         WRITE(msgBuf,'(A,A,E9.2)') 'streamice solo_time_step:',
!      &                       ' abnormally small timestep ',
!      &                       streamice_CFL_factor*min_ratio*(365*86400)
!         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
!      &                    SQUEEZE_RIGHT , 1)
!        endif
!         
!        if (time_step_int .ge. time_step_remain) then
!         time_step_int = time_step_remain
!         time_step_remain = 0.0
!        else
!         time_step_remain = time_step_remain - time_step_int
!        endif
 
       
!       if (time_step_int .gt. 1000) then

      WRITE(msgBuf,'(A,I10.10,E9.2,A)') 
     &  'streamice solo_time_step: nIter',
     &  myIter, myTime/86400.0/365.0, 'seconds'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                   SQUEEZE_RIGHT , 1)

      CALL STREAMICE_DUMP( mytime, myiter, myThid )

      CALL STREAMICE_VELMASK_UPD (myThid)
      CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
      CALL STREAMICE_VEL_SOLVE( myThid )
!       endif


      if(.not.STREAMICE_diagnostic_only) THEN

       CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  

      endif
      

!       enddo

!       CALL STREAMICE_VELMASK_UPD (myThid)
!       CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
!       CALL STREAMICE_VEL_SOLVE( myThid )

!       modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter

! #ifdef ALLOW_DIAGNOSTICS
! 
! ! this stuff was to replace what is in forward_step, but not
! ! forward_step will be called
!  
! !       IF ( useDiagnostics ) THEN
! !         CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myiter, myThid )
! ! ! C--   State-variables diagnostics
! ! !         CALL TIMER_START('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
! ! !         CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid )
! ! !         CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
! !       ENDIF
! 
! 
!       IF ( useDiagnostics ) THEN
!        CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
!      &      0,1,0,1,1,myThid)
!        CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
!      &      0,1,0,1,1,myThid)
!        CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
!      &      0,1,0,1,1,myThid)
!        CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
!      &      0,1,0,1,1,myThid)
!        CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
!      &      0,1,0,1,1,myThid)
! 
!       ENDIF
! 
! !       IF ( useDiagnostics ) THEN
! !           CALL TIMER_START('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
! !           CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid )
! !           CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
! !       ENDIF
! 
! #endif /* ALLOW_DIAGNOSTICS */

!       myIter = nIter0 + iLoop
!       myTime = startTime + deltaTClock * float(iLoop)
! 
!       CALL TIMER_START('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)
!       CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid )
!       CALL TIMER_STOP ('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)


#endif
      RETURN
      END
1	heimbach	1.6	C $Header: /u/gcmpack/MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F,v 1.5 2012/09/18 17:06:48 dgoldberg Exp $
2	heimbach	1.1	C $Name: $
3
4			#include "STREAMICE_OPTIONS.h"
5
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7
8			CBOP
9			SUBROUTINE STREAMICE_SOLO_TIMESTEP ( myThid, myIter,
10			& iLoop, myTime )
11
12			C /============================================================\
13			C \| SUBROUTINE \|
14			C \| o \|
15			C \|============================================================\|
16			C \| \|
17			C \============================================================/
18			IMPLICIT NONE
19
20			C === Global variables ===
21			#include "SIZE.h"
22			#include "GRID.h"
23			#include "EEPARAMS.h"
24			#include "PARAMS.h"
25			#include "STREAMICE.h"
26			#ifdef ALLOW_AUTODIFF_TAMC
27			# include "tamc.h"
28			# include "STREAMICE_ADV.h"
29			# include "STREAMICE_BDRY.h"
30			# include "STREAMICE_CG.h"
31			#endif
32
33
34			INTEGER myThid, myIter, iLoop
35			_RL myTime
36
37
38			#ifdef ALLOW_STREAMICE
39
40			INTEGER i, j, bi, bj, ki, kj
41			! _RL Iratio, Imin_ratio, time_step_remain, local_u_max
42			! _RL ratio, min_ratio
43			! _RL local_v_max, time_step_int, min_time_step
44			CHARACTER*(MAX_LEN_MBUF) msgBuf
45			! LOGICAL modelEnd
46
47			#ifdef ALLOW_AUTODIFF_TAMC
48			c**************************************
49			#include "streamice_ad_check_lev1_dir.h"
50			c**************************************
51			#endif
52
53			! time_step_remain = deltaT
54			! min_time_step = 1000.0
55			! n_interm = 0
56
57			#ifdef ALLOW_AUTODIFF_TAMC
58
59			DO bj=myByLo(myThid),myByHi(myThid)
60			DO bi=myBxLo(myThid),myBxHi(myThid)
61			DO j=1-OLy,sNy+OLy
62			DO i=1-OLx,sNx+OLx
63			STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
64			STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
65			ru_old_si(i,j,bi,bj) = 0. _d 0
66			rv_old_si(i,j,bi,bj) = 0. _d 0
67			zu_old_si(i,j,bi,bj) = 0. _d 0
68			zv_old_si(i,j,bi,bj) = 0. _d 0
69			h_after_uflux_si(i,j,bi,bj) = 0. _d 0
70	heimbach	1.6	#ifdef STREAMICE_HYBRID_STRESS
71			streamice_taubx (i,j,bi,bj) = 0. _d 0
72			streamice_tauby (i,j,bi,bj) = 0. _d 0
73			#endif
74	heimbach	1.1	ENDDO
75			ENDDO
76			ENDDO
77			ENDDO
78
79			#endif
80
81
82			! do while (time_step_remain .gt. 0. _d 0)
83			!
84			! n_interm = n_interm + 1
85			! Imin_ratio = 1.0e-16
86			!
87			! DO bj = myByLo(myThid), myByHi(myThid)
88			! DO bi = myBxLo(myThid), myBxHi(myThid)
89			! DO j=1,sNy
90			! DO i=1,sNx
91			!
92			! local_u_max = 0
93			! local_v_max = 0
94			!
95			! if (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) then
96			! do ki = 0,1
97			! do kj = 0,1
98			! local_u_max =
99			! & max (local_u_max, abs(U_streamice(i+ki,j+kj,bi,bj)))
100			! local_v_max =
101			! & max (local_v_max, abs(V_streamice(i+ki,j+kj,bi,bj)))
102			! enddo
103			! enddo
104			!
105			! Iratio = max (local_u_max/dxF(i,j,bi,bj) ,
106			! & local_v_max/dyF(i,j,bi,bj))
107			! Imin_ratio = max (Imin_ratio, Iratio)
108			! endif
109			!
110			! enddo
111			! enddo
112			! enddo
113			! enddo
114			!
115			! CALL GLOBAL_MAX_R8 (Imin_ratio, myThid)
116			! min_ratio = 1./(Imin_ratio+1.e-12)
117			! time_step_int =
118			! & min(streamice_CFL_factormin_ratio(365*86400),
119			! & deltaT)
120			!
121			! if (time_step_int .lt. min_time_step) then
122			! WRITE(msgBuf,'(A,A,E9.2)') 'streamice solo_time_step:',
123			! & ' abnormally small timestep ',
124			! & streamice_CFL_factormin_ratio(365*86400)
125			! CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
126			! & SQUEEZE_RIGHT , 1)
127			! endif
128			!
129			! if (time_step_int .ge. time_step_remain) then
130			! time_step_int = time_step_remain
131			! time_step_remain = 0.0
132			! else
133			! time_step_remain = time_step_remain - time_step_int
134			! endif
135
136
137
138
139	dgoldberg	1.2
140	heimbach	1.1
141			! if (time_step_int .gt. 1000) then
142
143			WRITE(msgBuf,'(A,I10.10,E9.2,A)')
144			& 'streamice solo_time_step: nIter',
145			& myIter, myTime/86400.0/365.0, 'seconds'
146			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
147			& SQUEEZE_RIGHT , 1)
148
149	heimbach	1.4	CALL STREAMICE_DUMP( mytime, myiter, myThid )
150
151	heimbach	1.1	CALL STREAMICE_VELMASK_UPD (myThid)
152			CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
153			CALL STREAMICE_VEL_SOLVE( myThid )
154			! endif
155
156	dgoldberg	1.2
157	dgoldberg	1.5	if(.not.STREAMICE_diagnostic_only) THEN
158
159			CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )
160
161			endif
162	dgoldberg	1.2
163	heimbach	1.1
164			! enddo
165
166	dgoldberg	1.2	! CALL STREAMICE_VELMASK_UPD (myThid)
167			! CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
168			! CALL STREAMICE_VEL_SOLVE( myThid )
169	heimbach	1.1
170			! modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter
171
172			! #ifdef ALLOW_DIAGNOSTICS
173			!
174			! ! this stuff was to replace what is in forward_step, but not
175			! ! forward_step will be called
176			!
177			! ! IF ( useDiagnostics ) THEN
178			! ! CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myiter, myThid )
179			! ! ! C-- State-variables diagnostics
180			! ! ! CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
181			! ! ! CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid )
182			! ! ! CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
183			! ! ENDIF
184			!
185			!
186			! IF ( useDiagnostics ) THEN
187			! CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
188			! & 0,1,0,1,1,myThid)
189			! CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
190			! & 0,1,0,1,1,myThid)
191			! CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
192			! & 0,1,0,1,1,myThid)
193			! CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
194			! & 0,1,0,1,1,myThid)
195			! CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
196			! & 0,1,0,1,1,myThid)
197			!
198			! ENDIF
199			!
200			! ! IF ( useDiagnostics ) THEN
201			! ! CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
202			! ! CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid )
203			! ! CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
204			! ! ENDIF
205			!
206			! #endif /* ALLOW_DIAGNOSTICS */
207
208			! myIter = nIter0 + iLoop
209			! myTime = startTime + deltaTClock * float(iLoop)
210			!
211			! CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid)
212			! CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid )
213			! CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid)
214
215
216			#endif
217			RETURN
218			END