source: trunk/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90 @ 7881

Last change on this file since 7881 was 7646, checked in by timgraham, 4 years ago

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge —reintegrate svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.

  • Property svn:keywords set to Id
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.