Skip to content
Snippets Groups Projects
Normal view History Permalink
agrif_ice.F90 1.47 KiB
Newer Older
Guillaume Samson's avatar
Initial commit
Guillaume Samson committed
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 
MODULE agrif_ice
   !!======================================================================
   !!                       ***  MODULE agrif_ice  ***
   !! AGRIF :   define in memory AGRIF variables for sea-ice
   !!----------------------------------------------------------------------
   !! History :  3.4   !  2012-08  (R. Benshila)          Original code
   !!            4.0   !  2018     (C. Rousset)           SI3 compatibility
   !!----------------------------------------------------------------------
#if defined key_agrif && defined key_si3
   !!----------------------------------------------------------------------
   !!   'key_agrif'                                              AGRIF zoom
   !!   'key_si3'                                         SI3 sea-ice model
   !!----------------------------------------------------------------------   
   IMPLICIT NONE
   PRIVATE 

   INTEGER, PUBLIC ::  u_ice_id, v_ice_id, tra_ice_id
   INTEGER, PUBLIC ::  u_iceini_id, v_iceini_id, tra_iceini_id
   INTEGER, PUBLIC ::  nbstep_ice = 0    ! child time position in sea-ice model

   !!----------------------------------------------------------------------
   !! NEMO/NST 4.0 , NEMO Consortium (2018)
   !! $Id: agrif_ice.F90 13216 2020-07-02 09:25:49Z rblod $
   !! Software governed by the CeCILL license (see ./LICENSE)
   !!----------------------------------------------------------------------

#endif
   !!======================================================================
END MODULE agrif_ice