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.
agrif_ice.F90 in NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/NST_SRC – NEMO

source: NEMO/branches/UKMO/r8395_restart_datestamp/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90 @ 10758

Last change on this file since 10758 was 10758, checked in by jcastill, 5 years ago

Remove svn keywords

File size: 3.3 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   !!            3.6  ! 2016-05  (C. Rousset)   Add LIM3 compatibility
8   !!----------------------------------------------------------------------
9#if defined key_agrif && defined key_lim2
10   !!----------------------------------------------------------------------
11   !!   'key_agrif'                                              AGRIF zoom
12   !!----------------------------------------------------------------------
13   USE par_oce      ! ocean parameters
14   
15   IMPLICIT NONE
16   PRIVATE
17
18   PUBLIC agrif_ice_alloc ! routine called by nemo_init in nemogcm.F90
19
20   INTEGER, PUBLIC :: u_ice_id, v_ice_id, adv_ice_id
21   REAL(wp), PUBLIC :: lim_nbstep = 0.    ! child time position in sea-ice model
22#if defined key_lim2_vp
23   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:)     :: u_ice_nst, v_ice_nst   
24#else
25   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: u_ice_oe, u_ice_sn     !: boundaries arrays
26   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: v_ice_oe, v_ice_sn     !:  "          "
27#endif
28   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:) :: adv_ice_oe, adv_ice_sn !:  "          "
29
30   !!----------------------------------------------------------------------
31   !! NEMO/NST 3.3.4 , NEMO Consortium (2012)
32   !! $Id$
33   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
34   !!----------------------------------------------------------------------
35
36CONTAINS
37
38   INTEGER FUNCTION agrif_ice_alloc()
39      !!----------------------------------------------------------------------
40      !!                ***  FUNCTION agrif_ice_alloc  ***
41      !!----------------------------------------------------------------------
42#if defined key_lim2_vp
43      ALLOCATE( u_ice_nst(jpi,jpj), v_ice_nst(jpi,jpj) ,   &
44#else
45      ALLOCATE( u_ice_oe(4,jpj,2) , v_ice_oe(4,jpj,2) ,    &
46         &      u_ice_sn(jpi,4,2) , v_ice_sn(jpi,4,2) ,    &
47#endif
48         &      adv_ice_oe (4,jpj,7,2) , adv_ice_sn (jpi,4,7,2) ,   &
49         &      STAT = agrif_ice_alloc)
50
51#if ! defined key_lim2_vp
52      u_ice_oe(:,:,:) =  0.e0
53      v_ice_oe(:,:,:) =  0.e0
54      u_ice_sn(:,:,:) =  0.e0
55      v_ice_sn(:,:,:) =  0.e0
56#endif
57      adv_ice_oe (:,:,:,:) = 0.e0 
58      adv_ice_sn (:,:,:,:) = 0.e0 
59      !
60   END FUNCTION agrif_ice_alloc
61
62#elif defined key_agrif && defined key_lim3
63   !!----------------------------------------------------------------------
64   !!   'key_agrif'                                              AGRIF zoom
65   !!----------------------------------------------------------------------   
66   IMPLICIT NONE
67   PRIVATE
68
69   INTEGER, PUBLIC ::  u_ice_id, v_ice_id, tra_ice_id
70   INTEGER, PUBLIC ::  lim_nbstep = 0    ! child time position in sea-ice model
71
72   !!----------------------------------------------------------------------
73   !! NEMO/NST 3.6 , NEMO Consortium (2016)
74   !! $Id$
75   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
76   !!----------------------------------------------------------------------
77
78#endif
79   !!======================================================================
80END MODULE agrif_ice
Note: See TracBrowser for help on using the repository browser.