New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
zdfphy.F90 in NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF – NEMO

source: NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/ZDF/zdfphy.F90 @ 10846

Last change on this file since 10846 was 10846, checked in by andmirek, 6 years ago

ticket #2197 merge dev_r9950_old_tidal_mixing r10040: for use for ORCA25

File size: 18.5 KB
Line 
1MODULE zdfphy
2   !!======================================================================
3   !!                      ***  MODULE  zdfphy  ***
4   !! Vertical ocean physics :   manager of all vertical physics packages
5   !!======================================================================
6   !! History :  4.0  !  2017-04  (G. Madec)  original code
7   !!----------------------------------------------------------------------
8
9   !!----------------------------------------------------------------------
10   !!   zdf_phy_init  : initialization of all vertical physics packages
11   !!   zdf_phy       : upadate at each time-step the vertical mixing coeff.
12   !!----------------------------------------------------------------------
13   USE oce            ! ocean dynamics and tracers variables
14   USE zdf_oce        ! vertical physics: shared variables         
15   USE zdfdrg         ! vertical physics: top/bottom drag coef.
16   USE zdfsh2         ! vertical physics: shear production term of TKE
17   USE zdfric         ! vertical physics: RIChardson dependent vertical mixing   
18   USE zdftke         ! vertical physics: TKE vertical mixing
19   USE zdfgls         ! vertical physics: GLS vertical mixing
20   USE zdfosm         ! vertical physics: OSMOSIS vertical mixing
21   USE zdfddm         ! vertical physics: double diffusion mixing     
22   USE zdfevd         ! vertical physics: convection via enhanced vertical diffusion 
23   USE zdfiwm         ! vertical physics: internal wave-induced mixing 
24   USE zdftmx         ! vertical physics: old tidal mixing scheme (Simmons et al 2004)
25   USE zdfswm         ! vertical physics: surface  wave-induced mixing
26   USE zdfmxl         ! vertical physics: mixed layer
27   USE tranpc         ! convection: non penetrative adjustment
28   USE trc_oce        ! variables shared between passive tracer & ocean           
29   USE sbc_oce        ! surface module (only for nn_isf in the option compatibility test)
30   USE sbcrnf         ! surface boundary condition: runoff variables
31#if defined key_agrif
32   USE agrif_oce_interp   ! interpavm
33#endif
34   !
35   USE in_out_manager ! I/O manager
36   USE iom            ! IOM library
37   USE lbclnk         ! lateral boundary conditions
38   USE lib_mpp        ! distribued memory computing
39   USE timing         ! Timing
40
41   IMPLICIT NONE
42   PRIVATE
43
44   PUBLIC   zdf_phy_init  ! called by nemogcm.F90
45   PUBLIC   zdf_phy       ! called by step.F90
46
47   INTEGER ::   nzdf_phy   ! type of vertical closure used
48   !                       ! associated indicators
49   INTEGER, PARAMETER ::   np_CST = 1   ! Constant Kz
50   INTEGER, PARAMETER ::   np_RIC = 2   ! Richardson number dependent Kz
51   INTEGER, PARAMETER ::   np_TKE = 3   ! Turbulente Kinetic Eenergy closure scheme for Kz
52   INTEGER, PARAMETER ::   np_GLS = 4   ! Generic Length Scale closure scheme for Kz
53   INTEGER, PARAMETER ::   np_OSM = 5   ! OSMOSIS-OBL closure scheme for Kz
54
55   LOGICAL ::   l_zdfsh2   ! shear production term flag (=F for CST, =T otherwise (i.e. TKE, GLS, RIC))
56
57   !!----------------------------------------------------------------------
58   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
59   !! $Id$
60   !! Software governed by the CeCILL license (see ./LICENSE)
61   !!----------------------------------------------------------------------
62CONTAINS
63
64   SUBROUTINE zdf_phy_init
65      !!----------------------------------------------------------------------
66      !!                  ***  ROUTINE zdf_phy_init  ***
67      !!
68      !! ** Purpose :   initializations of the vertical ocean physics
69      !!
70      !! ** Method  :   Read namelist namzdf, control logicals
71      !!                set horizontal shape and vertical profile of background mixing coef.
72      !!----------------------------------------------------------------------
73      INTEGER ::   jk            ! dummy loop indices
74      INTEGER ::   ioptio, ios   ! local integers
75      !!
76      NAMELIST/namzdf/ ln_zdfcst, ln_zdfric, ln_zdftke, ln_zdfgls,   &     ! type of closure scheme
77         &             ln_zdfosm,                                    &     ! type of closure scheme
78         &             ln_zdfevd, nn_evdm, rn_evd ,                  &     ! convection : evd
79         &             ln_zdfnpc, nn_npc , nn_npcp,                  &     ! convection : npc
80         &             ln_zdfddm, rn_avts, rn_hsbfr,                 &     ! double diffusion
81         &             ln_zdfswm,                                    &     ! surface  wave-induced mixing
82         &             ln_zdfiwm,                                    &     ! internal  -      -      -
83         &             ln_zdftmx,                                    &     ! old tidal mixing scheme (Simmons et al 2004)
84         &             rn_avm0, rn_avt0, nn_avb, nn_havtb                  ! coefficients
85      !!----------------------------------------------------------------------
86      !
87      IF(lwp) THEN
88         WRITE(numout,*)
89         WRITE(numout,*) 'zdf_phy_init: ocean vertical physics'
90         WRITE(numout,*) '~~~~~~~~~~~~'
91      ENDIF
92      !
93      !                           !==  Namelist  ==!
94      REWIND( numnam_ref )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
95      READ  ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901)
96901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namzdf in reference namelist', lwp )
97      !
98      REWIND( numnam_cfg )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
99      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 )
100902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp )
101      IF(lwm)   WRITE ( numond, namzdf )
102      !
103      IF(lwp) THEN                      ! Parameter print
104         WRITE(numout,*) '   Namelist namzdf : set vertical mixing mixing parameters'
105         WRITE(numout,*) '      vertical closure scheme'
106         WRITE(numout,*) '         constant vertical mixing coefficient    ln_zdfcst = ', ln_zdfcst
107         WRITE(numout,*) '         Richardson number dependent closure     ln_zdfric = ', ln_zdfric
108         WRITE(numout,*) '         Turbulent Kinetic Energy closure (TKE)  ln_zdftke = ', ln_zdftke
109         WRITE(numout,*) '         Generic Length Scale closure (GLS)      ln_zdfgls = ', ln_zdfgls
110         WRITE(numout,*) '         OSMOSIS-OBL closure (OSM)               ln_zdfosm = ', ln_zdfosm
111         WRITE(numout,*) '      convection: '
112         WRITE(numout,*) '         enhanced vertical diffusion             ln_zdfevd = ', ln_zdfevd
113         WRITE(numout,*) '            applied on momentum (=1/0)             nn_evdm = ', nn_evdm
114         WRITE(numout,*) '            vertical coefficient for evd           rn_evd  = ', rn_evd
115         WRITE(numout,*) '         non-penetrative convection (npc)        ln_zdfnpc = ', ln_zdfnpc
116         WRITE(numout,*) '            npc call  frequency                    nn_npc  = ', nn_npc
117         WRITE(numout,*) '            npc print frequency                    nn_npcp = ', nn_npcp
118         WRITE(numout,*) '      double diffusive mixing                    ln_zdfddm = ', ln_zdfddm
119         WRITE(numout,*) '         maximum avs for dd mixing                 rn_avts = ', rn_avts
120         WRITE(numout,*) '         heat/salt buoyancy flux ratio             rn_hsbfr= ', rn_hsbfr
121         WRITE(numout,*) '      gravity wave-induced mixing'
122         WRITE(numout,*) '         surface  wave (Qiao et al 2010)         ln_zdfswm = ', ln_zdfswm                                          ! surface wave induced mixing
123         WRITE(numout,*) '         internal wave (de Lavergne et al 2017)  ln_zdfiwm = ', ln_zdfiwm
124         WRITE(numout,*) '      coefficients : '
125         WRITE(numout,*) '         vertical eddy viscosity                 rn_avm0   = ', rn_avm0
126         WRITE(numout,*) '         vertical eddy diffusivity               rn_avt0   = ', rn_avt0
127         WRITE(numout,*) '         constant background or profile          nn_avb    = ', nn_avb
128         WRITE(numout,*) '         horizontal variation for avtb           nn_havtb  = ', nn_havtb
129      ENDIF
130
131      !                          !==  Background eddy viscosity and diffusivity  ==!
132      IF( nn_avb == 0 ) THEN             ! Define avmb, avtb from namelist parameter
133         avmb(:) = rn_avm0
134         avtb(:) = rn_avt0                     
135      ELSE                               ! Background profile of avt (fit a theoretical/observational profile (Krauss 1990)
136         avmb(:) = rn_avm0
137         avtb(:) = rn_avt0 + ( 3.e-4_wp - 2._wp * rn_avt0 ) * 1.e-4_wp * gdepw_1d(:)   ! m2/s
138         IF(ln_sco .AND. lwp)   CALL ctl_warn( 'avtb profile not valid in sco' )
139      ENDIF
140      !                                  ! 2D shape of the avtb
141      avtb_2d(:,:) = 1._wp                   ! uniform
142      !
143      IF( nn_havtb == 1 ) THEN               ! decrease avtb by a factor of ten in the equatorial band
144           !                                 !   -15S -5S : linear decrease from avt0 to avt0/10.
145           !                                 !   -5S  +5N : cst value avt0/10.
146           !                                 !    5N  15N : linear increase from avt0/10, to avt0
147           WHERE(-15. <= gphit .AND. gphit < -5 )   avtb_2d = (1.  - 0.09 * (gphit + 15.))
148           WHERE( -5. <= gphit .AND. gphit <  5 )   avtb_2d =  0.1
149           WHERE(  5. <= gphit .AND. gphit < 15 )   avtb_2d = (0.1 + 0.09 * (gphit -  5.))
150      ENDIF
151      !
152      DO jk = 1, jpk                      ! set turbulent closure Kz to the background value (avt_k, avm_k)
153         avt_k(:,:,jk) = avtb_2d(:,:) * avtb(jk) * wmask (:,:,jk)
154         avm_k(:,:,jk) =                avmb(jk) * wmask (:,:,jk)
155      END DO
156!!gm  to be tested only the 1st & last levels
157!      avt  (:,:, 1 ) = 0._wp   ;   avs(:,:, 1 ) = 0._wp   ;   avm  (:,:, 1 ) = 0._wp
158!      avt  (:,:,jpk) = 0._wp   ;   avs(:,:,jpk) = 0._wp   ;   avm  (:,:,jpk) = 0._wp
159!!gm
160      avt  (:,:,:) = 0._wp   ;   avs(:,:,:) = 0._wp   ;   avm  (:,:,:) = 0._wp
161
162      !                          !==  Convection  ==!
163      !
164      IF( ln_zdfnpc .AND. ln_zdfevd )   CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfnpc and ln_zdfevd' )
165      IF( ln_zdfosm .AND. ln_zdfevd )   CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfosm and ln_zdfevd' )
166      IF( lk_top    .AND. ln_zdfnpc )   CALL ctl_stop( 'zdf_phy_init: npc scheme is not working with key_top' )
167      IF( lk_top    .AND. ln_zdfosm )   CALL ctl_stop( 'zdf_phy_init: osmosis scheme is not working with key_top' )
168      IF(lwp) THEN
169         WRITE(numout,*)
170         IF    ( ln_zdfnpc ) THEN  ;   WRITE(numout,*) '   ==>>>   convection: use non penetrative convective scheme'
171         ELSEIF( ln_zdfevd ) THEN  ;   WRITE(numout,*) '   ==>>>   convection: use enhanced vertical diffusion scheme'
172         ELSE                      ;   WRITE(numout,*) '   ==>>>   convection: no specific scheme used'
173         ENDIF
174      ENDIF
175
176      IF(lwp) THEN               !==  Double Diffusion Mixing parameterization  ==!   (ddm)
177         WRITE(numout,*)
178         IF( ln_zdfddm ) THEN   ;   WRITE(numout,*) '   ==>>>   use double diffusive mixing: avs /= avt'
179         ELSE                   ;   WRITE(numout,*) '   ==>>>   No  double diffusive mixing: avs = avt'
180         ENDIF
181      ENDIF
182
183      !                          !==  type of vertical turbulent closure  ==!    (set nzdf_phy)
184      ioptio = 0 
185      IF( ln_zdfcst ) THEN   ;   ioptio = ioptio + 1   ;    nzdf_phy = np_CST   ;   ENDIF
186      IF( ln_zdfric ) THEN   ;   ioptio = ioptio + 1   ;    nzdf_phy = np_RIC   ;   CALL zdf_ric_init   ;   ENDIF
187      IF( ln_zdftke ) THEN   ;   ioptio = ioptio + 1   ;    nzdf_phy = np_TKE   ;   CALL zdf_tke_init   ;   ENDIF
188      IF( ln_zdfgls ) THEN   ;   ioptio = ioptio + 1   ;    nzdf_phy = np_GLS   ;   CALL zdf_gls_init   ;   ENDIF
189      IF( ln_zdfosm ) THEN   ;   ioptio = ioptio + 1   ;    nzdf_phy = np_OSM   ;   CALL zdf_osm_init   ;   ENDIF
190      !
191      IF( ioptio /= 1 )    CALL ctl_stop( 'zdf_phy_init: one and only one vertical diffusion option has to be defined ' )
192      IF( ln_isfcav ) THEN
193      IF( ln_zdfric .OR. ln_zdfgls )    CALL ctl_stop( 'zdf_phy_init: zdfric and zdfgls never tested with ice shelves cavities ' )
194      ENDIF
195      !                                ! shear production term flag
196      IF( ln_zdfcst ) THEN   ;   l_zdfsh2 = .FALSE.
197      ELSE                   ;   l_zdfsh2 = .TRUE.
198      ENDIF
199
200      !                          !== gravity wave-driven mixing  ==!
201      IF( ln_zdfiwm )   CALL zdf_iwm_init       ! internal wave-driven mixing
202      IF( ln_zdftmx )   CALL zdf_tmx_init       ! old tidal mixing scheme (Simmons et al)
203      IF( ln_zdfswm )   CALL zdf_swm_init       ! surface  wave-driven mixing
204
205      !                          !== top/bottom friction  ==!
206      CALL zdf_drg_init
207      !
208      !                          !== time-stepping  ==!
209      ! Check/update of time stepping done in dynzdf_init/trazdf_init
210      !!gm move it here ?
211      !
212   END SUBROUTINE zdf_phy_init
213
214
215   SUBROUTINE zdf_phy( kt )
216      !!----------------------------------------------------------------------
217      !!                     ***  ROUTINE zdf_phy  ***
218      !!
219      !! ** Purpose :  Update ocean physics at each time-step
220      !!
221      !! ** Method  :
222      !!
223      !! ** Action  :   avm, avt vertical eddy viscosity and diffusivity at w-points
224      !!                nmld ??? mixed layer depth in level and meters   <<<<====verifier !
225      !!                bottom stress.....                               <<<<====verifier !
226      !!----------------------------------------------------------------------
227      INTEGER, INTENT(in) ::   kt   ! ocean time-step index
228      !
229      INTEGER ::   ji, jj, jk   ! dummy loop indice
230      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zsh2   ! shear production
231      !! ---------------------------------------------------------------------
232      !
233      IF( ln_timing )   CALL timing_start('zdf_phy')
234      !
235      IF( l_zdfdrg ) THEN     !==  update top/bottom drag  ==!   (non-linear cases)
236         !
237         !                       !* bottom drag
238         CALL zdf_drg( kt, mbkt    , r_Cdmin_bot, r_Cdmax_bot,   &   ! <<== in
239            &              r_z0_bot,   r_ke0_bot,    rCd0_bot,   &
240            &                                        rCdU_bot  )     ! ==>> out : bottom drag [m/s]
241         IF( ln_isfcav ) THEN    !* top drag   (ocean cavities)
242            CALL zdf_drg( kt, mikt    , r_Cdmin_top, r_Cdmax_top,   &   ! <<== in
243               &              r_z0_top,   r_ke0_top,    rCd0_top,   &
244               &                                        rCdU_top  )     ! ==>> out : bottom drag [m/s]
245         ENDIF
246      ENDIF
247      !
248      !                       !==  Kz from chosen turbulent closure  ==!   (avm_k, avt_k)
249      !
250      IF( l_zdfsh2 )   &         !* shear production at w-points (energy conserving form)
251         CALL zdf_sh2( ub, vb, un, vn, avm_k,   &     ! <<== in
252            &                           zsh2    )     ! ==>> out : shear production
253      !
254      SELECT CASE ( nzdf_phy )                  !* Vertical eddy viscosity and diffusivity coefficients at w-points
255      CASE( np_RIC )   ;   CALL zdf_ric( kt, gdept_n, zsh2, avm_k, avt_k )    ! Richardson number dependent Kz
256      CASE( np_TKE )   ;   CALL zdf_tke( kt         , zsh2, avm_k, avt_k )    ! TKE closure scheme for Kz
257      CASE( np_GLS )   ;   CALL zdf_gls( kt         , zsh2, avm_k, avt_k )    ! GLS closure scheme for Kz
258      CASE( np_OSM )   ;   CALL zdf_osm( kt               , avm_k, avt_k )    ! OSMOSIS closure scheme for Kz
259!     CASE( np_CST )                                  ! Constant Kz (reset avt, avm to the background value)
260!         ! avt_k and avm_k set one for all at initialisation phase
261!!gm         avt(2:jpim1,2:jpjm1,1:jpkm1) = rn_avt0 * wmask(2:jpim1,2:jpjm1,1:jpkm1)
262!!gm         avm(2:jpim1,2:jpjm1,1:jpkm1) = rn_avm0 * wmask(2:jpim1,2:jpjm1,1:jpkm1)
263      END SELECT
264     
265      !                          !==  ocean Kz  ==!   (avt, avs, avm)
266      !
267      !                                         !* start from turbulent closure values
268      avt(:,:,2:jpkm1) = avt_k(:,:,2:jpkm1)
269      avm(:,:,2:jpkm1) = avm_k(:,:,2:jpkm1)
270      !
271      IF( ln_rnf_mouth ) THEN                   !* increase diffusivity at rivers mouths
272         DO jk = 2, nkrnf
273            avt(:,:,jk) = avt(:,:,jk) + 2._wp * rn_avt_rnf * rnfmsk(:,:) * wmask(:,:,jk)
274         END DO
275      ENDIF
276      !
277      IF( ln_zdfevd )   CALL zdf_evd( kt, avm, avt )  !* convection: enhanced vertical eddy diffusivity
278      !
279      !                                         !* double diffusive mixing
280      IF( ln_zdfddm ) THEN                            ! update avt and compute avs
281                        CALL zdf_ddm( kt, avm, avt, avs )
282      ELSE                                            ! same mixing on all tracers
283         avs(2:jpim1,2:jpjm1,1:jpkm1) = avt(2:jpim1,2:jpjm1,1:jpkm1)
284      ENDIF
285      !
286      !                                         !* wave-induced mixing
287      IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004)
288      IF( ln_zdfiwm )   CALL zdf_iwm( kt, avm, avt, avs )   ! internal wave (de Lavergne et al 2017)
289      IF( ln_zdftmx )   CALL zdf_tmx( kt, avm, avt, avs )   ! old tidal mixing scheme (Simmons et al 2004)
290
291#if defined key_agrif 
292      ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)
293      IF( l_zdfsh2 )   CALL Agrif_avm
294#endif
295
296      !                                         !* Lateral boundary conditions (sign unchanged)
297      IF( l_zdfsh2 ) THEN
298         CALL lbc_lnk_multi( avm_k, 'W', 1. , avt_k, 'W', 1.,   &
299            &                avm  , 'W', 1. , avt  , 'W', 1. , avs , 'W', 1. )
300      ELSE
301         CALL lbc_lnk_multi( avm  , 'W', 1. , avt  , 'W', 1. , avs , 'W', 1. )
302      ENDIF
303      !
304      IF( l_zdfdrg ) THEN     ! drag  have been updated (non-linear cases)
305         IF( ln_isfcav ) THEN   ;  CALL lbc_lnk_multi( rCdU_top, 'T', 1. , rCdU_bot, 'T', 1. )   ! top & bot drag
306         ELSE                   ;  CALL lbc_lnk      ( rCdU_bot, 'T', 1. )                       ! bottom drag only
307         ENDIF
308      ENDIF
309      !
310      CALL zdf_mxl( kt )                        !* mixed layer depth, and level
311      !
312      IF( lrst_oce ) THEN                       !* write TKE, GLS or RIC fields in the restart file
313         IF( ln_zdftke )   CALL tke_rst( kt, 'WRITE' )
314         IF( ln_zdfgls )   CALL gls_rst( kt, 'WRITE' )
315         IF( ln_zdfric )   CALL ric_rst( kt, 'WRITE' ) 
316         ! NB. OSMOSIS restart (osm_rst) will be called in step.F90 after wn has been updated
317      ENDIF
318      !
319      IF( ln_timing )   CALL timing_stop('zdf_phy')
320      !
321   END SUBROUTINE zdf_phy
322
323   !!======================================================================
324END MODULE zdfphy
Note: See TracBrowser for help on using the repository browser.