Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
MODULE zdfphy
!!======================================================================
!! *** MODULE zdfphy ***
!! Vertical ocean physics : manager of all vertical physics packages
!!======================================================================
!! History : 4.0 ! 2017-04 (G. Madec) original code
!!----------------------------------------------------------------------
!!----------------------------------------------------------------------
!! zdf_phy_init : initialization of all vertical physics packages
!! zdf_phy : upadate at each time-step the vertical mixing coeff.
!!----------------------------------------------------------------------
USE oce ! ocean dynamics and tracers variables
! TEMP: [tiling] This change not necessary after finalisation of zdf_osm (not yet tiled)
USE domtile
USE zdf_oce ! vertical physics: shared variables
USE zdfdrg ! vertical physics: top/bottom drag coef.
USE zdfsh2 ! vertical physics: shear production term of TKE
USE zdfric ! vertical physics: RIChardson dependent vertical mixing
USE zdftke ! vertical physics: TKE vertical mixing
USE zdfgls ! vertical physics: GLS vertical mixing
USE zdfosm ! vertical physics: OSMOSIS vertical mixing
USE zdfddm ! vertical physics: double diffusion mixing
USE zdfevd ! vertical physics: convection via enhanced vertical diffusion
USE zdfmfc ! vertical physics: Mass Flux Convection
USE zdfiwm ! vertical physics: internal wave-induced mixing
USE zdfswm ! vertical physics: surface wave-induced mixing
USE zdfmxl ! vertical physics: mixed layer
USE tranpc ! convection: non penetrative adjustment
USE trc_oce ! variables shared between passive tracer & ocean
USE sbc_oce ! surface module (only for nn_isf in the option compatibility test)
USE sbcrnf ! surface boundary condition: runoff variables
USE sbc_ice ! sea ice drag
#if defined key_agrif
USE agrif_oce_interp ! interpavm
#endif
!
USE in_out_manager ! I/O manager
USE iom ! IOM library
USE lbclnk ! lateral boundary conditions
USE lib_mpp ! distribued memory computing
USE timing ! Timing
IMPLICIT NONE
PRIVATE
PUBLIC zdf_phy_init ! called by nemogcm.F90
PUBLIC zdf_phy ! called by step.F90
INTEGER :: nzdf_phy ! type of vertical closure used
! ! associated indicators
INTEGER, PARAMETER :: np_CST = 1 ! Constant Kz
INTEGER, PARAMETER :: np_RIC = 2 ! Richardson number dependent Kz
INTEGER, PARAMETER :: np_TKE = 3 ! Turbulente Kinetic Eenergy closure scheme for Kz
INTEGER, PARAMETER :: np_GLS = 4 ! Generic Length Scale closure scheme for Kz
INTEGER, PARAMETER :: np_OSM = 5 ! OSMOSIS-OBL closure scheme for Kz
LOGICAL, PUBLIC :: l_zdfsh2 ! shear production term flag (=F for CST, =T otherwise (i.e. TKE, GLS, RIC))
REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: avm_k_n !: "Now" avm_k used for calculation of zsh2 with tiling
!! * Substitutions
# include "do_loop_substitute.h90"
!!----------------------------------------------------------------------
!! NEMO/OCE 4.0 , NEMO Consortium (2018)
!! $Id: zdfphy.F90 15553 2021-11-29 11:36:23Z jchanut $
!! Software governed by the CeCILL license (see ./LICENSE)
!!----------------------------------------------------------------------
CONTAINS
SUBROUTINE zdf_phy_init( Kmm )
!!----------------------------------------------------------------------
!! *** ROUTINE zdf_phy_init ***
!!
!! ** Purpose : initializations of the vertical ocean physics
!!
!! ** Method : Read namelist namzdf, control logicals
!! set horizontal shape and vertical profile of background mixing coef.
!!----------------------------------------------------------------------
INTEGER, INTENT(in) :: Kmm ! time level index (middle)
!
INTEGER :: jk ! dummy loop indices
INTEGER :: ioptio, ios ! local integers
!!
NAMELIST/namzdf/ ln_zdfcst, ln_zdfric, ln_zdftke, ln_zdfgls, & ! type of closure scheme
& ln_zdfosm, & ! type of closure scheme
& ln_zdfmfc, & ! convection : mass flux
& ln_zdfevd, nn_evdm, rn_evd , & ! convection : evd
& ln_zdfnpc, nn_npc , nn_npcp, & ! convection : npc
& ln_zdfddm, rn_avts, rn_hsbfr, & ! double diffusion
& ln_zdfswm, & ! surface wave-induced mixing
& ln_zdfiwm, & ! internal - - -
& ln_zad_Aimp, & ! apdative-implicit vertical advection
& rn_avm0, rn_avt0, nn_avb, nn_havtb ! coefficients
!!----------------------------------------------------------------------
!
IF(lwp) THEN
WRITE(numout,*)
WRITE(numout,*) 'zdf_phy_init: ocean vertical physics'
WRITE(numout,*) '~~~~~~~~~~~~'
ENDIF
!
! !== Namelist ==!
READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901)
901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist' )
!
READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 )
902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist' )
IF(lwm) WRITE ( numond, namzdf )
!
IF(lwp) THEN ! Parameter print
WRITE(numout,*) ' Namelist namzdf : set vertical mixing mixing parameters'
WRITE(numout,*) ' adaptive-implicit vertical advection'
WRITE(numout,*) ' Courant number targeted application ln_zad_Aimp = ', ln_zad_Aimp
WRITE(numout,*) ' vertical closure scheme'
WRITE(numout,*) ' constant vertical mixing coefficient ln_zdfcst = ', ln_zdfcst
WRITE(numout,*) ' Richardson number dependent closure ln_zdfric = ', ln_zdfric
WRITE(numout,*) ' Turbulent Kinetic Energy closure (TKE) ln_zdftke = ', ln_zdftke
WRITE(numout,*) ' Generic Length Scale closure (GLS) ln_zdfgls = ', ln_zdfgls
WRITE(numout,*) ' OSMOSIS-OBL closure (OSM) ln_zdfosm = ', ln_zdfosm
WRITE(numout,*) ' convection: '
WRITE(numout,*) ' convection mass flux (mfc) ln_zdfmfc = ', ln_zdfmfc
WRITE(numout,*) ' enhanced vertical diffusion ln_zdfevd = ', ln_zdfevd
WRITE(numout,*) ' applied on momentum (=1/0) nn_evdm = ', nn_evdm
WRITE(numout,*) ' vertical coefficient for evd rn_evd = ', rn_evd
WRITE(numout,*) ' non-penetrative convection (npc) ln_zdfnpc = ', ln_zdfnpc
WRITE(numout,*) ' npc call frequency nn_npc = ', nn_npc
WRITE(numout,*) ' npc print frequency nn_npcp = ', nn_npcp
WRITE(numout,*) ' double diffusive mixing ln_zdfddm = ', ln_zdfddm
WRITE(numout,*) ' maximum avs for dd mixing rn_avts = ', rn_avts
WRITE(numout,*) ' heat/salt buoyancy flux ratio rn_hsbfr= ', rn_hsbfr
WRITE(numout,*) ' gravity wave-induced mixing'
WRITE(numout,*) ' surface wave (Qiao et al 2010) ln_zdfswm = ', ln_zdfswm ! surface wave induced mixing
WRITE(numout,*) ' internal wave (de Lavergne et al 2017) ln_zdfiwm = ', ln_zdfiwm
WRITE(numout,*) ' coefficients : '
WRITE(numout,*) ' vertical eddy viscosity rn_avm0 = ', rn_avm0
WRITE(numout,*) ' vertical eddy diffusivity rn_avt0 = ', rn_avt0
WRITE(numout,*) ' constant background or profile nn_avb = ', nn_avb
WRITE(numout,*) ' horizontal variation for avtb nn_havtb = ', nn_havtb
ENDIF
IF( ln_zad_Aimp ) THEN
IF( zdf_phy_alloc() /= 0 ) &
& CALL ctl_stop( 'STOP', 'zdf_phy_init : unable to allocate adaptive-implicit z-advection arrays' )
Cu_adv(:,:,:) = 0._wp
wi (:,:,:) = 0._wp
ENDIF
! ! Initialise zdf_mxl arrays (only hmld as not set everywhere when nn_hls > 1)
IF( zdf_mxl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' )
hmld(:,:) = 0._wp
! !== Background eddy viscosity and diffusivity ==!
IF( nn_avb == 0 ) THEN ! Define avmb, avtb from namelist parameter
avmb(:) = rn_avm0
avtb(:) = rn_avt0
ELSE ! Background profile of avt (fit a theoretical/observational profile (Krauss 1990)
avmb(:) = rn_avm0
avtb(:) = rn_avt0 + ( 3.e-4_wp - 2._wp * rn_avt0 ) * 1.e-4_wp * gdepw_1d(:) ! m2/s
IF(ln_sco .AND. lwp) CALL ctl_warn( 'avtb profile not valid in sco' )
ENDIF
! ! 2D shape of the avtb
avtb_2d(:,:) = 1._wp ! uniform
!
IF( nn_havtb == 1 ) THEN ! decrease avtb by a factor of ten in the equatorial band
! ! -15S -5S : linear decrease from avt0 to avt0/10.
! ! -5S +5N : cst value avt0/10.
! ! 5N 15N : linear increase from avt0/10, to avt0
WHERE(-15. <= gphit .AND. gphit < -5 ) avtb_2d = (1. - 0.09 * (gphit + 15.))
WHERE( -5. <= gphit .AND. gphit < 5 ) avtb_2d = 0.1
WHERE( 5. <= gphit .AND. gphit < 15 ) avtb_2d = (0.1 + 0.09 * (gphit - 5.))
ENDIF
!
DO jk = 1, jpk ! set turbulent closure Kz to the background value (avt_k, avm_k)
avt_k(:,:,jk) = avtb_2d(:,:) * avtb(jk) * wmask (:,:,jk)
avm_k(:,:,jk) = avmb(jk) * wmask (:,:,jk)
END DO
!!gm to be tested only the 1st & last levels
! avt (:,:, 1 ) = 0._wp ; avs(:,:, 1 ) = 0._wp ; avm (:,:, 1 ) = 0._wp
! avt (:,:,jpk) = 0._wp ; avs(:,:,jpk) = 0._wp ; avm (:,:,jpk) = 0._wp
!!gm
avt (:,:,:) = 0._wp ; avs(:,:,:) = 0._wp ; avm (:,:,:) = 0._wp
! !== Convection ==!
!
IF( ln_zdfnpc .AND. ln_zdfevd ) CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfnpc and ln_zdfevd' )
IF( ln_zdfosm .AND. ln_zdfevd ) CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfosm and ln_zdfevd' )
IF( ln_zdfmfc .AND. ln_zdfevd ) CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfmfc and ln_zdfevd' )
IF( ln_zdfmfc .AND. ln_zdfnpc ) CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfmfc and ln_zdfnpc' )
IF( ln_zdfmfc .AND. ln_zdfosm ) CALL ctl_stop( 'zdf_phy_init: chose between ln_zdfmfc and ln_zdfosm' )
IF( lk_top .AND. ln_zdfnpc ) CALL ctl_stop( 'zdf_phy_init: npc scheme is not working with key_top' )
IF( lk_top .AND. ln_zdfosm ) CALL ctl_warn( 'zdf_phy_init: osmosis gives no non-local fluxes for TOP tracers yet' )
IF( lk_top .AND. ln_zdfmfc ) CALL ctl_stop( 'zdf_phy_init: Mass Flux scheme is not working with key_top' )
IF(lwp) THEN
WRITE(numout,*)
IF ( ln_zdfnpc ) THEN ; WRITE(numout,*) ' ==>>> convection: use non penetrative convective scheme'
ELSEIF( ln_zdfevd ) THEN ; WRITE(numout,*) ' ==>>> convection: use enhanced vertical diffusion scheme'
ELSEIF( ln_zdfmfc ) THEN ; WRITE(numout,*) ' ==>>> convection: use Mass Flux scheme'
ELSE ; WRITE(numout,*) ' ==>>> convection: no specific scheme used'
ENDIF
ENDIF
IF(lwp) THEN !== Double Diffusion Mixing parameterization ==! (ddm)
WRITE(numout,*)
IF( ln_zdfddm ) THEN ; WRITE(numout,*) ' ==>>> use double diffusive mixing: avs /= avt'
ELSE ; WRITE(numout,*) ' ==>>> No double diffusive mixing: avs = avt'
ENDIF
ENDIF
! !== type of vertical turbulent closure ==! (set nzdf_phy)
ioptio = 0
IF( ln_zdfcst ) THEN ; ioptio = ioptio + 1 ; nzdf_phy = np_CST ; ENDIF
IF( ln_zdfric ) THEN ; ioptio = ioptio + 1 ; nzdf_phy = np_RIC ; CALL zdf_ric_init ; ENDIF
IF( ln_zdftke ) THEN ; ioptio = ioptio + 1 ; nzdf_phy = np_TKE ; CALL zdf_tke_init( Kmm ) ; ENDIF
IF( ln_zdfgls ) THEN ; ioptio = ioptio + 1 ; nzdf_phy = np_GLS ; CALL zdf_gls_init ; ENDIF
IF( ln_zdfosm ) THEN ; ioptio = ioptio + 1 ; nzdf_phy = np_OSM ; CALL zdf_osm_init( Kmm ) ; ENDIF
!
IF( ioptio /= 1 ) CALL ctl_stop( 'zdf_phy_init: one and only one vertical diffusion option has to be defined ' )
IF( ln_isfcav ) THEN
IF( ln_zdfric ) CALL ctl_stop( 'zdf_phy_init: zdfric never tested with ice shelves cavities ' )
ENDIF
! ! shear production term flag
IF( ln_zdfcst .OR. ln_zdfosm ) THEN ; l_zdfsh2 = .FALSE.
ELSE ; l_zdfsh2 = .TRUE.
ENDIF
IF( ln_tile .AND. l_zdfsh2 ) ALLOCATE( avm_k_n(jpi,jpj,jpk) )
! !== Mass Flux Convectiive algorithm ==!
IF( ln_zdfmfc ) CALL zdf_mfc_init ! Convection computed with eddy diffusivity mass flux
!
! !== gravity wave-driven mixing ==!
IF( ln_zdfiwm ) CALL zdf_iwm_init ! internal wave-driven mixing
IF( ln_zdfswm ) CALL zdf_swm_init ! surface wave-driven mixing
! !== top/bottom friction ==!
CALL zdf_drg_init
!
! !== time-stepping ==!
! Check/update of time stepping done in dynzdf_init/trazdf_init
!!gm move it here ?
!
END SUBROUTINE zdf_phy_init
SUBROUTINE zdf_phy( kt, Kbb, Kmm, Krhs )
!!----------------------------------------------------------------------
!! *** ROUTINE zdf_phy ***
!!
!! ** Purpose : Update ocean physics at each time-step
!!
!! ** Method :
!!
!! ** Action : avm, avt vertical eddy viscosity and diffusivity at w-points
!! nmld ??? mixed layer depth in level and meters <<<<====verifier !
!! bottom stress..... <<<<====verifier !
!!----------------------------------------------------------------------
INTEGER, INTENT(in) :: kt ! ocean time-step index
INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! ocean time level indices
!
INTEGER :: ji, jj, jk ! dummy loop indice
REAL(wp), DIMENSION(A2D(nn_hls),jpk) :: zsh2 ! shear production
!! ---------------------------------------------------------------------
!
IF( ln_timing ) CALL timing_start('zdf_phy')
!
IF( l_zdfdrg ) THEN !== update top/bottom drag ==! (non-linear cases)
!
! !* bottom drag
CALL zdf_drg( kt, Kmm, mbkt , r_Cdmin_bot, r_Cdmax_bot, & ! <<== in
& r_z0_bot, r_ke0_bot, rCd0_bot, &
& rCdU_bot ) ! ==>> out : bottom drag [m/s]
IF( ln_isfcav ) THEN !* top drag (ocean cavities)
CALL zdf_drg( kt, Kmm, mikt , r_Cdmin_top, r_Cdmax_top, & ! <<== in
& r_z0_top, r_ke0_top, rCd0_top, &
& rCdU_top ) ! ==>> out : bottom drag [m/s]
ENDIF
ENDIF
!
#if defined key_si3
IF ( ln_drgice_imp) THEN
IF ( ln_isfcav ) THEN
DO_2D_OVR( 1, 1, 1, 1 )
rCdU_top(ji,jj) = rCdU_top(ji,jj) + ssmask(ji,jj) * tmask(ji,jj,1) * rCdU_ice(ji,jj)
END_2D
ELSE
DO_2D_OVR( 1, 1, 1, 1 )
rCdU_top(ji,jj) = rCdU_ice(ji,jj)
END_2D
ENDIF
ENDIF
#endif
!
CALL zdf_mxl( kt, Kmm ) !* mixed layer depth, and level
!
! !== Kz from chosen turbulent closure ==! (avm_k, avt_k)
!
! NOTE: [tiling] the closure schemes (zdf_tke etc) will update avm_k. With tiling, the calculation of zsh2 on adjacent tiles then uses both updated (next timestep) and non-updated (current timestep) values of avm_k. To preserve results, we save a read-only copy of the "now" avm_k to use in the calculation of zsh2.
IF( l_zdfsh2 ) THEN !* shear production at w-points (energy conserving form)
IF( ln_tile ) THEN
IF( ntile == 1 ) avm_k_n(:,:,:) = avm_k(:,:,:) ! Preserve "now" avm_k for calculation of zsh2
CALL zdf_sh2( Kbb, Kmm, avm_k_n, & ! <<== in
& zsh2 ) ! ==>> out : shear production
ELSE
CALL zdf_sh2( Kbb, Kmm, avm_k, & ! <<== in
& zsh2 ) ! ==>> out : shear production
ENDIF
ENDIF
!
SELECT CASE ( nzdf_phy ) !* Vertical eddy viscosity and diffusivity coefficients at w-points
CASE( np_RIC ) ; CALL zdf_ric( kt, Kmm, zsh2, avm_k, avt_k ) ! Richardson number dependent Kz
CASE( np_TKE ) ; CALL zdf_tke( kt, Kbb, Kmm, zsh2, avm_k, avt_k ) ! TKE closure scheme for Kz
CASE( np_GLS ) ; CALL zdf_gls( kt, Kbb, Kmm, zsh2, avm_k, avt_k ) ! GLS closure scheme for Kz
CASE( np_OSM ) ; CALL zdf_osm( kt, Kbb, Kmm, Krhs, avm_k, avt_k ) ! OSMOSIS closure scheme for Kz
! CASE( np_CST ) ! Constant Kz (reset avt, avm to the background value)
! ! avt_k and avm_k set one for all at initialisation phase
!!gm avt(2:jpim1,2:jpjm1,1:jpkm1) = rn_avt0 * wmask(2:jpim1,2:jpjm1,1:jpkm1)
!!gm avm(2:jpim1,2:jpjm1,1:jpkm1) = rn_avm0 * wmask(2:jpim1,2:jpjm1,1:jpkm1)
END SELECT
!
! !== ocean Kz ==! (avt, avs, avm)
#if defined key_agrif
! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)
IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN ! Do only on the last tile
IF( l_zdfsh2 ) CALL Agrif_avm
ENDIF
#endif
!
! !* start from turbulent closure values
DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, jpkm1 )
avt(ji,jj,jk) = avt_k(ji,jj,jk)
avm(ji,jj,jk) = avm_k(ji,jj,jk)
END_3D
!
IF( ln_rnf_mouth ) THEN !* increase diffusivity at rivers mouths
DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 2, nkrnf )
avt(ji,jj,jk) = avt(ji,jj,jk) + 2._wp * rn_avt_rnf * rnfmsk(ji,jj) * wmask(ji,jj,jk)
END_3D
ENDIF
!
IF( ln_zdfevd ) CALL zdf_evd( kt, Kmm, Krhs, avm, avt ) !* convection: enhanced vertical eddy diffusivity
!
! !* double diffusive mixing
IF( ln_zdfddm ) THEN ! update avt and compute avs
CALL zdf_ddm( kt, Kmm, avm, avt, avs )
ELSE ! same mixing on all tracers
DO_3D_OVR( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 )
avs(ji,jj,jk) = avt(ji,jj,jk)
END_3D
ENDIF
!
! !* wave-induced mixing
IF( ln_zdfswm ) CALL zdf_swm( kt, Kmm, avm, avt, avs ) ! surface wave (Qiao et al. 2004)
IF( ln_zdfiwm ) CALL zdf_iwm( kt, Kmm, avm, avt, avs ) ! internal wave (de Lavergne et al 2017)
! !* Lateral boundary conditions (sign unchanged)
IF(nn_hls==1) THEN
IF( l_zdfsh2 ) THEN
CALL lbc_lnk( 'zdfphy', avm_k, 'W', 1.0_wp , avt_k, 'W', 1.0_wp, &
& avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp )
ELSE
CALL lbc_lnk( 'zdfphy', avm , 'W', 1.0_wp , avt , 'W', 1.0_wp , avs , 'W', 1.0_wp )
ENDIF
!
IF( l_zdfdrg ) THEN ! drag have been updated (non-linear cases)
IF( ln_isfcav ) THEN ; CALL lbc_lnk( 'zdfphy', rCdU_top, 'T', 1.0_wp , rCdU_bot, 'T', 1.0_wp ) ! top & bot drag
ELSE ; CALL lbc_lnk( 'zdfphy', rCdU_bot, 'T', 1.0_wp ) ! bottom drag only
ENDIF
ENDIF
ENDIF
!
CALL zdf_mxl_turb( kt, Kmm ) !* turbocline depth
!
IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN ! Do only on the last tile
IF( lrst_oce ) THEN !* write TKE, GLS or RIC fields in the restart file
IF( ln_zdftke ) CALL tke_rst( kt, 'WRITE' )
IF( ln_zdfgls ) CALL gls_rst( kt, 'WRITE' )
IF( ln_zdfric ) CALL ric_rst( kt, 'WRITE' )
! NB. OSMOSIS restart (osm_rst) will be called in step.F90 after ww has been updated
ENDIF
ENDIF
!
! diagnostics of energy dissipation
IF( iom_use('avt_k') .OR. iom_use('avm_k') .OR. iom_use('eshear_k') .OR. iom_use('estrat_k') ) THEN
IF( l_zdfsh2 ) THEN
CALL iom_put( 'avt_k' , avt_k * wmask )
CALL iom_put( 'avm_k' , avm_k * wmask )
CALL iom_put( 'eshear_k', zsh2 * wmask )
CALL iom_put( 'estrat_k', - avt_k * rn2 * wmask )
ENDIF
ENDIF
!
IF( ln_timing ) CALL timing_stop('zdf_phy')
!
END SUBROUTINE zdf_phy
INTEGER FUNCTION zdf_phy_alloc()
!!----------------------------------------------------------------------
!! *** FUNCTION zdf_phy_alloc ***
!!----------------------------------------------------------------------
! Allocate wi array (declared in oce.F90) for use with the adaptive-implicit vertical velocity option
ALLOCATE( wi(jpi,jpj,jpk), Cu_adv(jpi,jpj,jpk), STAT= zdf_phy_alloc )
IF( zdf_phy_alloc /= 0 ) CALL ctl_warn('zdf_phy_alloc: failed to allocate ln_zad_Aimp=T required arrays')
CALL mpp_sum ( 'zdfphy', zdf_phy_alloc )
END FUNCTION zdf_phy_alloc
!!======================================================================
END MODULE zdfphy