dgoldberg/streamice/streamice_solo_timestep.F

C $Header: /u/gcmpack/MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F,v 1.2 2012/07/19 18:46:56 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
         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_VELMASK_UPD (myThid)
      CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
      CALL STREAMICE_VEL_SOLVE( myThid )
!       endif


      CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )  
      

!       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	dgoldberg	1.3	C $Header: /u/gcmpack/MITgcm_contrib/dgoldberg/streamice/streamice_solo_timestep.F,v 1.2 2012/07/19 18:46:56 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			ENDDO
71			ENDDO
72			ENDDO
73			ENDDO
74
75			#endif
76
77
78			! do while (time_step_remain .gt. 0. _d 0)
79			!
80			! n_interm = n_interm + 1
81			! Imin_ratio = 1.0e-16
82			!
83			! DO bj = myByLo(myThid), myByHi(myThid)
84			! DO bi = myBxLo(myThid), myBxHi(myThid)
85			! DO j=1,sNy
86			! DO i=1,sNx
87			!
88			! local_u_max = 0
89			! local_v_max = 0
90			!
91			! if (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) then
92			! do ki = 0,1
93			! do kj = 0,1
94			! local_u_max =
95			! & max (local_u_max, abs(U_streamice(i+ki,j+kj,bi,bj)))
96			! local_v_max =
97			! & max (local_v_max, abs(V_streamice(i+ki,j+kj,bi,bj)))
98			! enddo
99			! enddo
100			!
101			! Iratio = max (local_u_max/dxF(i,j,bi,bj) ,
102			! & local_v_max/dyF(i,j,bi,bj))
103			! Imin_ratio = max (Imin_ratio, Iratio)
104			! endif
105			!
106			! enddo
107			! enddo
108			! enddo
109			! enddo
110			!
111			! CALL GLOBAL_MAX_R8 (Imin_ratio, myThid)
112			! min_ratio = 1./(Imin_ratio+1.e-12)
113			! time_step_int =
114			! & min(streamice_CFL_factormin_ratio(365*86400),
115			! & deltaT)
116			!
117			! if (time_step_int .lt. min_time_step) then
118			! WRITE(msgBuf,'(A,A,E9.2)') 'streamice solo_time_step:',
119			! & ' abnormally small timestep ',
120			! & streamice_CFL_factormin_ratio(365*86400)
121			! CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
122			! & SQUEEZE_RIGHT , 1)
123			! endif
124			!
125			! if (time_step_int .ge. time_step_remain) then
126			! time_step_int = time_step_remain
127			! time_step_remain = 0.0
128			! else
129			! time_step_remain = time_step_remain - time_step_int
130			! endif
131
132
133
134
135	dgoldberg	1.2
136	heimbach	1.1
137			! if (time_step_int .gt. 1000) then
138
139			WRITE(msgBuf,'(A,I10.10,E9.2,A)')
140			& 'streamice solo_time_step: nIter',
141			& myIter, myTime/86400.0/365.0, 'seconds'
142
143			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
144			& SQUEEZE_RIGHT , 1)
145
146			CALL STREAMICE_VELMASK_UPD (myThid)
147			CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
148			CALL STREAMICE_VEL_SOLVE( myThid )
149			! endif
150
151	dgoldberg	1.2
152			CALL STREAMICE_ADVECT_THICKNESS ( myThid, deltaT )
153
154	heimbach	1.1
155			! enddo
156
157	dgoldberg	1.2	! CALL STREAMICE_VELMASK_UPD (myThid)
158			! CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
159			! CALL STREAMICE_VEL_SOLVE( myThid )
160	heimbach	1.1
161			! modelEnd = myTime.EQ.endTime .OR. myIter.EQ.nEndIter
162
163			! #ifdef ALLOW_DIAGNOSTICS
164			!
165			! ! this stuff was to replace what is in forward_step, but not
166			! ! forward_step will be called
167			!
168			! ! IF ( useDiagnostics ) THEN
169			! ! CALL DIAGNOSTICS_SWITCH_ONOFF( myTime, myiter, myThid )
170			! ! ! C-- State-variables diagnostics
171			! ! ! CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
172			! ! ! CALL DO_STATEVARS_DIAGS( myTime, 0, myIter, myThid )
173			! ! ! CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
174			! ! ENDIF
175			!
176			!
177			! IF ( useDiagnostics ) THEN
178			! CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
179			! & 0,1,0,1,1,myThid)
180			! CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
181			! & 0,1,0,1,1,myThid)
182			! CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
183			! & 0,1,0,1,1,myThid)
184			! CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
185			! & 0,1,0,1,1,myThid)
186			! CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
187			! & 0,1,0,1,1,myThid)
188			!
189			! ENDIF
190			!
191			! ! IF ( useDiagnostics ) THEN
192			! ! CALL TIMER_START('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
193			! ! CALL DO_STATEVARS_DIAGS( myTime, 2, myIter, myThid )
194			! ! CALL TIMER_STOP ('DO_STATEVARS_DIAGS [FORWARD_STEP]',myThid)
195			! ! ENDIF
196			!
197			! #endif /* ALLOW_DIAGNOSTICS */
198
199			! myIter = nIter0 + iLoop
200			! myTime = startTime + deltaTClock * float(iLoop)
201			!
202			! CALL TIMER_START('DO_THE_MODEL_IO [FORWARD_STEP]',myThid)
203			! CALL DO_THE_MODEL_IO( modelEnd, myTime, myIter, myThid )
204			! CALL TIMER_STOP ('DO_THE_MODEL_IO [FORWARD_STEP]',myThid)
205
206
207			#endif
208			RETURN
209			END