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 branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/NST_SRC – NEMO

source: branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90 @ 5615

Last change on this file since 5615 was 5615, checked in by cguiavarch, 9 years ago

Clear svn keywords

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