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.
icestp.F90 in NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE – NEMO

source: NEMO/branches/UKMO/NEMO_4.0_GO8_coupled_iodef/src/ICE/icestp.F90 @ 11355

Last change on this file since 11355 was 11355, checked in by dancopsey, 5 years ago

Add lots of print statements printing out values of files throughout the ocean_ice timestep.. New output will be in files crash_stats_419.out and crash_stats_68.out.
File size: 24.8 KB
Line 
1MODULE icestp
2   !!======================================================================
3   !!                       ***  MODULE  icestp  ***
4   !! sea ice : Master routine for all the sea ice model
5   !!=====================================================================
6   !!
7   !! The sea ice model SI3 (Sea Ice modelling Integrated Initiative),
8   !!                        aka Sea Ice cube for its nickname
9   !!
10   !!    is originally based on LIM3, developed in Louvain-la-Neuve by:
11   !!       * Martin Vancoppenolle (UCL-ASTR, Belgium)
12   !!       * Sylvain Bouillon (UCL-ASTR, Belgium)
13   !!       * Miguel Angel Morales Maqueda (NOC-L, UK)
14   !!      thanks to valuable earlier work by
15   !!       * Thierry Fichefet
16   !!       * Hugues Goosse
17   !!      thanks also to the following persons who contributed
18   !!       * Gurvan Madec, Claude Talandier, Christian Ethe (LOCEAN, France)
19   !!       * Xavier Fettweis (UCL-ASTR), Ralph Timmermann (AWI, Germany)
20   !!       * Bill Lipscomb (LANL), Cecilia Bitz (UWa) and Elisabeth Hunke (LANL), USA.
21   !!
22   !! SI3 has been made possible by a handful of persons who met as working group
23   !!      (from France, Belgium, UK and Italy)
24   !!    * Clement Rousset, Martin Vancoppenolle & Gurvan Madec (LOCEAN, France)
25   !!    * Matthieu Chevalier & David Salas (Meteo France, France)
26   !!    * Gilles Garric (Mercator Ocean, France)
27   !!    * Thierry Fichefet & Francois Massonnet (UCL, Belgium)
28   !!    * Ed Blockley & Jeff Ridley (Met Office, UK)
29   !!    * Danny Feltham & David Schroeder (CPOM, UK)
30   !!    * Yevgeny Aksenov (NOC, UK)
31   !!    * Paul Holland (BAS, UK)
32   !!    * Dorotea Iovino (CMCC, Italy)
33   !!======================================================================
34   !! History :  4.0  !  2018     (C. Rousset)      Original code SI3
35   !!----------------------------------------------------------------------
36#if defined key_si3
37   !!----------------------------------------------------------------------
38   !!   'key_si3'                                       SI3 sea-ice model
39   !!----------------------------------------------------------------------
40   !!   ice_stp       : sea-ice model time-stepping and update ocean SBC over ice-covered area
41   !!   ice_init      : initialize sea-ice
42   !!----------------------------------------------------------------------
43   USE oce            ! ocean dynamics and tracers
44   USE dom_oce        ! ocean space and time domain
45   USE c1d            ! 1D vertical configuration
46   USE ice            ! sea-ice: variables
47   USE ice1D          ! sea-ice: thermodynamical 1D variables
48   !
49   USE phycst         ! Define parameters for the routines
50   USE eosbn2         ! equation of state
51   USE sbc_oce        ! Surface boundary condition: ocean fields
52   USE sbc_ice        ! Surface boundary condition: ice   fields
53   !
54   USE icesbc         ! sea-ice: Surface boundary conditions
55   USE icedyn         ! sea-ice: dynamics
56   USE icethd         ! sea-ice: thermodynamics
57   USE icecor         ! sea-ice: corrections
58   USE iceupdate      ! sea-ice: sea surface boundary condition update
59   USE icedia         ! sea-ice: budget diagnostics
60   USE icewri         ! sea-ice: outputs
61   USE icerst         ! sea-ice: restarts
62   USE icevar         ! sea-ice: operations
63   USE icectl         ! sea-ice: control
64   USE iceistate      ! sea-ice: initial state
65   USE iceitd         ! sea-ice: remapping thickness distribution
66   USE icealb         ! sea-ice: albedo
67   !
68   USE bdy_oce , ONLY : ln_bdy   ! flag for bdy
69   USE bdyice         ! unstructured open boundary data for sea-ice
70# if defined key_agrif
71   USE agrif_ice
72   USE agrif_ice_interp
73# endif
74   !
75   USE in_out_manager ! I/O manager
76   USE iom            ! I/O manager library
77   USE lib_mpp        ! MPP library
78   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
79   USE timing         ! Timing
80   USE prtctl         ! Print control
81
82   IMPLICIT NONE
83   PRIVATE
84
85   PUBLIC   ice_stp    ! called by sbcmod.F90
86   PUBLIC   ice_init   ! called by sbcmod.F90
87
88   !! * Substitutions
89#  include "vectopt_loop_substitute.h90"
90   !!----------------------------------------------------------------------
91   !! NEMO/ICE 4.0 , NEMO Consortium (2018)
92   !! $Id$
93   !! Software governed by the CeCILL license (see ./LICENSE)
94   !!----------------------------------------------------------------------
95CONTAINS
96
97   SUBROUTINE ice_stp( kt, ksbc )
98      !!---------------------------------------------------------------------
99      !!                  ***  ROUTINE ice_stp  ***
100      !!
101      !! ** Purpose :   sea-ice model time-stepping and update ocean surface
102      !!              boundary condition over ice-covered area
103      !!
104      !! ** Method  :   ice model time stepping
105      !!              - call the ice dynamics routine
106      !!              - call the ice advection/diffusion routine
107      !!              - call the ice thermodynamics routine
108      !!              - call the routine that computes mass and
109      !!                heat fluxes at the ice/ocean interface
110      !!              - save the outputs
111      !!              - save the outputs for restart when necessary
112      !!
113      !! ** Action  : - time evolution of the LIM sea-ice model
114      !!              - update all sbc variables below sea-ice:
115      !!                utau, vtau, taum, wndm, qns , qsr, emp , sfx
116      !!---------------------------------------------------------------------
117      INTEGER, INTENT(in) ::   kt      ! ocean time step
118      INTEGER, INTENT(in) ::   ksbc    ! flux formulation (user defined, bulk, or Pure Coupled)
119      !
120      INTEGER ::   jl   ! dummy loop index
121      !!----------------------------------------------------------------------
122      !
123      IF( ln_timing )   CALL timing_start('ice_stp')
124      !
125      !                                      !-----------------------!
126      IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN   ! --- Ice time step --- !
127         !                                   !-----------------------!
128         !
129         kt_ice = kt                              ! -- Ice model time step
130         !
131         u_oce(:,:) = ssu_m(:,:)                  ! -- mean surface ocean current
132         v_oce(:,:) = ssv_m(:,:)
133         !
134         CALL eos_fzp( sss_m(:,:) , t_bo(:,:) )   ! -- freezing temperature [Kelvin] (set to rt0 over land)
135         t_bo(:,:) = ( t_bo(:,:) + rt0 ) * tmask(:,:,1) + rt0 * ( 1._wp - tmask(:,:,1) )
136         !
137         !                          !==  AGRIF Parent to Child  ==!
138#if defined key_agrif
139         !                              ! nbstep_ice ranges from 1 to the nb of child ocean steps inside one parent ice step
140         IF( .NOT. Agrif_Root() )       nbstep_ice = MOD( nbstep_ice, Agrif_irhot() * Agrif_Parent(nn_fsbc) / nn_fsbc ) + 1
141         !                              ! these calls must remain here for restartability purposes
142                                        CALL agrif_interp_ice( 'T' ) 
143                                        CALL agrif_interp_ice( 'U' )
144                                        CALL agrif_interp_ice( 'V' )
145#endif
146                                        CALL store_fields             ! Store now ice values
147
148      IF(narea == 419) THEN
149         WRITE(9419,*) 'max emp ice_stp before ice_sbc_tau = ',emp(48,31)
150         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
151         WRITE(9419,*) 'qlead(48,31) = ',qlead(48,31)
152      ENDIF
153         !
154         !------------------------------------------------!
155         ! --- Dynamical coupling with the atmosphere --- !
156         !------------------------------------------------!
157         ! It provides the following fields used in sea ice model:
158         !    utau_ice, vtau_ice = surface ice stress [N/m2]
159         !------------------------------------------------!
160                                        CALL ice_sbc_tau( kt, ksbc, utau_ice, vtau_ice )         
161         !-------------------------------------!
162         ! --- ice dynamics and advection  --- !
163         !-------------------------------------!
164                                        CALL diag_set0                ! set diag of mass, heat and salt fluxes to 0
165                                        CALL ice_rst_opn( kt )        ! Open Ice restart file (if necessary)
166         !
167
168      IF(narea == 419) THEN
169         WRITE(9419,*) 'max emp ice_stp before ice_dyn = ',emp(48,31)
170         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
171         WRITE(9419,*) 'qlead(48,31) = ',qlead(48,31)
172      ENDIF
173
174         IF( ln_icedyn .AND. .NOT.lk_c1d )   &
175            &                           CALL ice_dyn( kt )            ! -- Ice dynamics
176         !
177         !                          !==  lateral boundary conditions  ==!
178         IF( ln_icethd .AND. ln_bdy )   CALL bdy_ice( kt )            ! -- bdy ice thermo
179         !
180
181      IF(narea == 419) THEN
182         WRITE(9419,*) 'max emp ice_stp before ice_var_glo2eqv = ',emp(48,31)
183         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
184         WRITE(9419,*) 'qlead(48,31) = ',qlead(48,31)
185      ENDIF
186
187         !                          !==  previous lead fraction and ice volume for flux calculations
188                                        CALL ice_var_glo2eqv          ! h_i and h_s for ice albedo calculation
189                                        CALL ice_var_agg(1)           ! at_i for coupling
190                                        CALL store_fields             ! Store now ice values
191         !
192         !------------------------------------------------------!
193         ! --- Thermodynamical coupling with the atmosphere --- !
194         !------------------------------------------------------!
195         ! It provides the following fields used in sea ice model:
196         !    emp_oce , emp_ice    = E-P over ocean and sea ice                    [Kg/m2/s]
197         !    sprecip              = solid precipitation                           [Kg/m2/s]
198         !    evap_ice             = sublimation                                   [Kg/m2/s]
199         !    qsr_tot , qns_tot    = solar & non solar heat flux (total)           [W/m2]
200         !    qsr_ice , qns_ice    = solar & non solar heat flux over ice          [W/m2]
201         !    dqns_ice             = non solar  heat sensistivity                  [W/m2]
202         !    qemp_oce, qemp_ice,  = sensible heat (associated with evap & precip) [W/m2]
203         !    qprec_ice, qevap_ice
204         !------------------------------------------------------!
205
206      IF(narea == 419) THEN
207         WRITE(9419,*) 'max emp ice_stp before ice_sbc_flx = ',emp(48,31)
208         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
209         WRITE(9419,*) 'qlead(48,31) = ',qlead(48,31)
210      ENDIF
211
212                                        CALL ice_sbc_flx( kt, ksbc )
213         !----------------------------!
214         ! --- ice thermodynamics --- !
215         !----------------------------!
216
217      IF(narea == 419) THEN
218         WRITE(9419,*) 'max emp ice_stp before ice_thd = ',emp(48,31)
219         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
220         WRITE(9419,*) 'qlead(48,31) = ',qlead(48,31)
221      ENDIF
222
223         IF( ln_icethd )                CALL ice_thd( kt )            ! -- Ice thermodynamics 
224
225      IF(narea == 419) THEN
226         WRITE(9419,*) 'max emp ice_stp before ice_cor = ',emp(48,31)
227         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
228      ENDIF
229   
230         !
231                                        CALL ice_cor( kt , 2 )        ! -- Corrections
232         !
233
234      IF(narea == 419) THEN
235         WRITE(9419,*) 'max emp ice_stp before ice_var_glo2eqv = ',emp(48,31)
236         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
237      ENDIF
238
239                                        CALL ice_var_glo2eqv          ! necessary calls (at least for coupling)
240                                        CALL ice_var_agg( 2 )         ! necessary calls (at least for coupling)
241         !
242
243      IF(narea == 419) THEN
244         WRITE(9419,*) 'max emp ice_stp before ice_update_flx = ',emp(48,31)
245         WRITE(9419,*) 'wfx_opw(48,31) = ',wfx_opw(48,31)
246      ENDIF
247
248                                        CALL ice_update_flx( kt )     ! -- Update ocean surface mass, heat and salt fluxes
249         !
250
251      IF(narea == 419) THEN
252         WRITE(9419,*) 'max emp ice_stp before ice_dia = ',emp(48,31)
253      ENDIF
254
255         IF( ln_icediahsb )             CALL ice_dia( kt )            ! -- Diagnostics outputs
256         !
257                                        CALL ice_wri( kt )            ! -- Ice outputs
258         !
259         IF( lrst_ice )                 CALL ice_rst_write( kt )      ! -- Ice restart file
260         !
261         IF( ln_icectl )                CALL ice_ctl( kt )            ! -- alerts in case of model crash
262
263      IF(narea == 419) THEN
264         WRITE(9419,*) 'max emp ice_stp at end = ',emp(48,31)
265      ENDIF
266
267         !
268      ENDIF   ! End sea-ice time step only
269
270      !-------------------------!
271      ! --- Ocean time step --- !
272      !-------------------------!
273      IF( ln_icedyn )                   CALL ice_update_tau( kt, ub(:,:,1), vb(:,:,1) )   ! -- update surface ocean stresses
274!!gm   remark, the ocean-ice stress is not saved in ice diag call above .....  find a solution!!!
275      !
276      IF( ln_timing )   CALL timing_stop('ice_stp')
277      !
278   END SUBROUTINE ice_stp
279
280
281   SUBROUTINE ice_init
282      !!----------------------------------------------------------------------
283      !!                  ***  ROUTINE ice_init  ***
284      !!
285      !! ** purpose :   Initialize sea-ice parameters
286      !!----------------------------------------------------------------------
287      INTEGER :: ji, jj, ierr
288      !!----------------------------------------------------------------------
289      IF(lwp) WRITE(numout,*)
290      IF(lwp) WRITE(numout,*) 'Sea Ice Model: SI3 (Sea Ice modelling Integrated Initiative)' 
291      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~'
292      IF(lwp) WRITE(numout,*)
293      IF(lwp) WRITE(numout,*) 'ice_init: Arrays allocation & Initialization of all routines & init state' 
294      IF(lwp) WRITE(numout,*) '~~~~~~~~'
295      !
296      !                                ! Open the reference and configuration namelist files and namelist output file
297      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
298      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )
299      IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )
300      !
301      CALL par_init                ! set some ice run parameters
302      !
303      !                                ! Allocate the ice arrays (sbc_ice already allocated in sbc_init)
304      ierr =        ice_alloc        ()      ! ice variables
305      ierr = ierr + sbc_ice_alloc    ()      ! surface boundary conditions
306      ierr = ierr + ice1D_alloc      ()      ! thermodynamics
307      !
308      CALL mpp_sum( 'icestp', ierr )
309      IF( ierr /= 0 )   CALL ctl_stop('STOP', 'ice_init : unable to allocate ice arrays')
310      !
311      CALL ice_itd_init                ! ice thickness distribution initialization
312      !
313      CALL ice_thd_init                ! set ice thermodynics parameters (clem: important to call it first for melt ponds)
314      !
315      !                                ! Initial sea-ice state
316      IF( .NOT. ln_rstart ) THEN              ! start from rest: sea-ice deduced from sst
317         CALL ice_istate_init
318         CALL ice_istate
319      ELSE                                    ! start from a restart file
320         CALL ice_rst_read
321      ENDIF
322      CALL ice_var_glo2eqv
323      CALL ice_var_agg(1)
324      !
325      CALL ice_sbc_init                ! set ice-ocean and ice-atm. coupling parameters
326      !
327      CALL ice_dyn_init                ! set ice dynamics parameters
328      !
329      CALL ice_update_init             ! ice surface boundary condition
330      !
331      CALL ice_alb_init                ! ice surface albedo
332      !
333      CALL ice_dia_init                ! initialization for diags
334      !
335      fr_i  (:,:)   = at_i(:,:)        ! initialisation of sea-ice fraction
336      tn_ice(:,:,:) = t_su(:,:,:)      ! initialisation of surface temp for coupled simu
337      !
338      !                                ! set max concentration in both hemispheres
339      WHERE( gphit(:,:) > 0._wp )   ;   rn_amax_2d(:,:) = rn_amax_n  ! NH
340      ELSEWHERE                     ;   rn_amax_2d(:,:) = rn_amax_s  ! SH
341      END WHERE
342
343      IF( ln_rstart )   CALL iom_close( numrir )  ! close input ice restart file
344      !
345   END SUBROUTINE ice_init
346
347
348   SUBROUTINE par_init
349      !!-------------------------------------------------------------------
350      !!                  ***  ROUTINE par_init ***
351      !!
352      !! ** Purpose :   Definition generic parameters for ice model
353      !!
354      !! ** Method  :   Read namelist and check the parameter
355      !!                values called at the first timestep (nit000)
356      !!
357      !! ** input   :   Namelist nampar
358      !!-------------------------------------------------------------------
359      INTEGER  ::   ios                 ! Local integer
360      !!
361      NAMELIST/nampar/ jpl, nlay_i, nlay_s, ln_virtual_itd, ln_icedyn, ln_icethd, rn_amax_n, rn_amax_s,  &
362         &             cn_icerst_in, cn_icerst_indir, cn_icerst_out, cn_icerst_outdir
363      !!-------------------------------------------------------------------
364      !
365      REWIND( numnam_ice_ref )      ! Namelist nampar in reference namelist : Parameters for ice
366      READ  ( numnam_ice_ref, nampar, IOSTAT = ios, ERR = 901)
367901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'nampar in reference namelist', lwp )
368      REWIND( numnam_ice_cfg )      ! Namelist nampar in configuration namelist : Parameters for ice
369      READ  ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 )
370902   IF( ios > 0 )   CALL ctl_nam ( ios , 'nampar in configuration namelist', lwp )
371      IF(lwm) WRITE( numoni, nampar )
372      !
373      IF(lwp) THEN                  ! control print
374         WRITE(numout,*)
375         WRITE(numout,*) '   par_init: ice parameters shared among all the routines'
376         WRITE(numout,*) '   ~~~~~~~~'
377         WRITE(numout,*) '      Namelist nampar: '
378         WRITE(numout,*) '         number of ice  categories                           jpl       = ', jpl
379         WRITE(numout,*) '         number of ice  layers                               nlay_i    = ', nlay_i
380         WRITE(numout,*) '         number of snow layers                               nlay_s    = ', nlay_s
381         WRITE(numout,*) '         virtual ITD param for jpl=1 (T) or not (F)     ln_virtual_itd = ', ln_virtual_itd
382         WRITE(numout,*) '         Ice dynamics       (T) or not (F)                   ln_icedyn = ', ln_icedyn
383         WRITE(numout,*) '         Ice thermodynamics (T) or not (F)                   ln_icethd = ', ln_icethd
384         WRITE(numout,*) '         maximum ice concentration for NH                              = ', rn_amax_n 
385         WRITE(numout,*) '         maximum ice concentration for SH                              = ', rn_amax_s
386      ENDIF
387      !                                        !--- change max ice concentration for roundoff errors
388      rn_amax_n = MIN( rn_amax_n, 1._wp - epsi10 )
389      rn_amax_s = MIN( rn_amax_s, 1._wp - epsi10 )
390      !                                        !--- check consistency
391      IF ( jpl > 1 .AND. ln_virtual_itd ) THEN
392         ln_virtual_itd = .FALSE.
393         IF(lwp) WRITE(numout,*)
394         IF(lwp) WRITE(numout,*) '   ln_virtual_itd forced to false as jpl>1, no need with multiple categories to emulate them'
395      ENDIF
396      !
397      IF( ln_cpl .AND. nn_cats_cpl /= 1 .AND. nn_cats_cpl /= jpl ) THEN
398         CALL ctl_stop( 'STOP', 'par_init: in coupled mode, nn_cats_cpl should be either 1 or jpl' )
399      ENDIF
400      !
401      IF( ln_bdy .AND. ln_icediachk )   CALL ctl_warn('par_init: online conservation check does not work with BDY')
402      !
403      rdt_ice   = REAL(nn_fsbc) * rdt          !--- sea-ice timestep and its inverse
404      r1_rdtice = 1._wp / rdt_ice
405      IF(lwp) WRITE(numout,*)
406      IF(lwp) WRITE(numout,*) '      ice timestep rdt_ice = nn_fsbc*rdt = ', rdt_ice
407      !
408      r1_nlay_i = 1._wp / REAL( nlay_i, wp )   !--- inverse of nlay_i and nlay_s
409      r1_nlay_s = 1._wp / REAL( nlay_s, wp )
410      !
411   END SUBROUTINE par_init
412
413
414   SUBROUTINE store_fields
415      !!----------------------------------------------------------------------
416      !!                  ***  ROUTINE store_fields  ***
417      !!
418      !! ** purpose :  store ice variables at "before" time step
419      !!----------------------------------------------------------------------
420      INTEGER  ::   ji, jj, jl      ! dummy loop index
421      !!----------------------------------------------------------------------
422      !
423      a_i_b (:,:,:)   = a_i (:,:,:)     ! ice area
424      v_i_b (:,:,:)   = v_i (:,:,:)     ! ice volume
425      v_s_b (:,:,:)   = v_s (:,:,:)     ! snow volume
426      sv_i_b(:,:,:)   = sv_i(:,:,:)     ! salt content
427      oa_i_b(:,:,:)   = oa_i(:,:,:)     ! areal age content
428      e_s_b (:,:,:,:) = e_s (:,:,:,:)   ! snow thermal energy
429      e_i_b (:,:,:,:) = e_i (:,:,:,:)   ! ice thermal energy
430      WHERE( a_i_b(:,:,:) >= epsi20 )
431         h_i_b(:,:,:) = v_i_b(:,:,:) / a_i_b(:,:,:)   ! ice thickness
432         h_s_b(:,:,:) = v_s_b(:,:,:) / a_i_b(:,:,:)   ! snw thickness
433      ELSEWHERE
434         h_i_b(:,:,:) = 0._wp
435         h_s_b(:,:,:) = 0._wp
436      END WHERE
437     
438      WHERE( a_ip(:,:,:) >= epsi20 )
439         h_ip_b(:,:,:) = v_ip(:,:,:) / a_ip(:,:,:)   ! ice pond thickness
440      ELSEWHERE
441         h_ip_b(:,:,:) = 0._wp
442      END WHERE
443      !
444      ! ice velocities & total concentration
445      at_i_b(:,:)  = SUM( a_i_b(:,:,:), dim=3 )
446      u_ice_b(:,:) = u_ice(:,:)
447      v_ice_b(:,:) = v_ice(:,:)
448      !
449   END SUBROUTINE store_fields
450
451
452   SUBROUTINE diag_set0
453      !!----------------------------------------------------------------------
454      !!                  ***  ROUTINE diag_set0  ***
455      !!
456      !! ** purpose :  set ice-ocean and ice-atm. fluxes to zeros at the beggining
457      !!               of the time step
458      !!----------------------------------------------------------------------
459      INTEGER  ::   ji, jj      ! dummy loop index
460      !!----------------------------------------------------------------------
461      sfx    (:,:) = 0._wp   ;
462      sfx_bri(:,:) = 0._wp   ;   sfx_lam(:,:) = 0._wp
463      sfx_sni(:,:) = 0._wp   ;   sfx_opw(:,:) = 0._wp
464      sfx_bog(:,:) = 0._wp   ;   sfx_dyn(:,:) = 0._wp
465      sfx_bom(:,:) = 0._wp   ;   sfx_sum(:,:) = 0._wp
466      sfx_res(:,:) = 0._wp   ;   sfx_sub(:,:) = 0._wp
467      !
468      wfx_snw(:,:) = 0._wp   ;   wfx_ice(:,:) = 0._wp
469      wfx_sni(:,:) = 0._wp   ;   wfx_opw(:,:) = 0._wp
470      wfx_bog(:,:) = 0._wp   ;   wfx_dyn(:,:) = 0._wp
471      wfx_bom(:,:) = 0._wp   ;   wfx_sum(:,:) = 0._wp
472      wfx_res(:,:) = 0._wp   ;   wfx_sub(:,:) = 0._wp
473      wfx_spr(:,:) = 0._wp   ;   wfx_lam(:,:) = 0._wp 
474      wfx_snw_dyn(:,:) = 0._wp ; wfx_snw_sum(:,:) = 0._wp
475      wfx_snw_sub(:,:) = 0._wp ; wfx_ice_sub(:,:) = 0._wp
476      wfx_snw_sni(:,:) = 0._wp 
477      wfx_pnd(:,:) = 0._wp
478
479      hfx_thd(:,:) = 0._wp   ;
480      hfx_snw(:,:) = 0._wp   ;   hfx_opw(:,:) = 0._wp
481      hfx_bog(:,:) = 0._wp   ;   hfx_dyn(:,:) = 0._wp
482      hfx_bom(:,:) = 0._wp   ;   hfx_sum(:,:) = 0._wp
483      hfx_res(:,:) = 0._wp   ;   hfx_sub(:,:) = 0._wp
484      hfx_spr(:,:) = 0._wp   ;   hfx_dif(:,:) = 0._wp
485      hfx_err_rem(:,:) = 0._wp
486      hfx_err_dif(:,:) = 0._wp
487      wfx_err_sub(:,:) = 0._wp
488      !
489      afx_tot(:,:) = 0._wp   ;
490      !
491      diag_heat(:,:) = 0._wp ;   diag_sice(:,:) = 0._wp
492      diag_vice(:,:) = 0._wp ;   diag_vsnw(:,:) = 0._wp
493
494      ! SIMIP diagnostics
495      qcn_ice_bot(:,:,:) = 0._wp ; qcn_ice_top(:,:,:) = 0._wp ! conductive fluxes
496      t_si       (:,:,:) = rt0   ! temp at the ice-snow interface
497
498      tau_icebfr (:,:)   = 0._wp   ! landfast ice param only (clem: important to keep the init here)
499      cnd_ice    (:,:,:) = 0._wp   ! initialisation: effective conductivity at the top of ice/snow (ln_cndflx=T)
500      qcn_ice    (:,:,:) = 0._wp   ! initialisation: conductive flux (ln_cndflx=T & ln_cndemule=T)
501      qtr_ice_bot(:,:,:) = 0._wp   ! initialization: part of solar radiation transmitted through the ice needed at least for outputs
502      qsb_ice_bot(:,:)   = 0._wp   ! (needed if ln_icethd=F)
503      !
504      ! for control checks (ln_icediachk)
505      diag_trp_vi(:,:) = 0._wp   ;   diag_trp_vs(:,:) = 0._wp
506      diag_trp_ei(:,:) = 0._wp   ;   diag_trp_es(:,:) = 0._wp
507      diag_trp_sv(:,:) = 0._wp
508
509   END SUBROUTINE diag_set0
510
511#else
512   !!----------------------------------------------------------------------
513   !!   Default option           Dummy module         NO SI3 sea-ice model
514   !!----------------------------------------------------------------------
515CONTAINS
516   SUBROUTINE ice_stp ( kt, ksbc )     ! Dummy routine
517      INTEGER, INTENT(in) ::   kt, ksbc
518      WRITE(*,*) 'ice_stp: You should not have seen this print! error?', kt
519   END SUBROUTINE ice_stp
520   SUBROUTINE ice_init                 ! Dummy routine
521   END SUBROUTINE ice_init
522#endif
523
524   !!======================================================================
525END MODULE icestp
Note: See TracBrowser for help on using the repository browser.