source: NEMO/branches/2020/dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation/src/NST/agrif_ice.F90 @ 13220

Last change on this file since 13220 was 13220, checked in by orioltp, 3 months ago

dev_r12512_HPC-04_mcastril_Mixed_Precision_implementation: updating from trunk r13218

  • Property svn:keywords set to Id
File size: 1.4 KB
Line 
1MODULE agrif_ice
2   !!======================================================================
3   !!                       ***  MODULE agrif_ice  ***
4   !! AGRIF :   define in memory AGRIF variables for sea-ice
5   !!----------------------------------------------------------------------
6   !! History :  3.4   !  2012-08  (R. Benshila)          Original code
7   !!            4.0   !  2018     (C. Rousset)           SI3 compatibility
8   !!----------------------------------------------------------------------
9#if defined key_agrif && defined key_si3
10   !!----------------------------------------------------------------------
11   !!   'key_agrif'                                              AGRIF zoom
12   !!   'key_si3'                                         SI3 sea-ice model
13   !!----------------------------------------------------------------------   
14   IMPLICIT NONE
15   PRIVATE
16
17   INTEGER, PUBLIC ::  u_ice_id, v_ice_id, tra_ice_id
18   INTEGER, PUBLIC ::  u_iceini_id, v_iceini_id, tra_iceini_id
19   INTEGER, PUBLIC ::  nbstep_ice = 0    ! child time position in sea-ice model
20
21   !!----------------------------------------------------------------------
22   !! NEMO/NST 4.0 , NEMO Consortium (2018)
23   !! $Id$
24   !! Software governed by the CeCILL license (see ./LICENSE)
25   !!----------------------------------------------------------------------
26
27#endif
28   !!======================================================================
29END MODULE agrif_ice
Note: See TracBrowser for help on using the repository browser.