source: branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/NST_SRC/agrif_ice.F90 @ 7953

Last change on this file since 7953 was 7953, checked in by gm, 4 years ago

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_…

  • Property svn:keywords set to Id
File size: 3.4 KB
RevLine 
[3455]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
[7646]7   !!            3.6  ! 2016-05  (C. Rousset)   Add LIM3 compatibility
[3455]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
[7953]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
[3455]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
[7953]26   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:)   :: v_ice_oe, v_ice_sn     !:     -        -
[3455]27#endif
[7953]28   REAL(wp), PUBLIC, ALLOCATABLE, DIMENSION(:,:,:,:) :: adv_ice_oe, adv_ice_sn !:     -        -
[3455]29
30   !!----------------------------------------------------------------------
[7953]31   !! NEMO/NST 4.0 , NEMO Consortium (2017)
[3455]32   !! $Id$
33   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
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
[7953]51      u_ice_oe(:,:,:) =  0._wp
52      v_ice_oe(:,:,:) =  0._wp
53      u_ice_sn(:,:,:) =  0._wp
54      v_ice_sn(:,:,:) =  0._wp
[3455]55#endif
[7953]56      adv_ice_oe (:,:,:,:) = 0._wp 
57      adv_ice_sn (:,:,:,:) = 0._wp
[3455]58      !
59   END FUNCTION agrif_ice_alloc
60
[7646]61#elif defined key_agrif && defined key_lim3
62   !!----------------------------------------------------------------------
63   !!   'key_agrif'                                              AGRIF zoom
64   !!----------------------------------------------------------------------   
65   IMPLICIT NONE
66   PRIVATE
67
68   INTEGER, PUBLIC ::  u_ice_id, v_ice_id, tra_ice_id
69   INTEGER, PUBLIC ::  lim_nbstep = 0    ! child time position in sea-ice model
70
71   !!----------------------------------------------------------------------
[7953]72   !! NEMO/NST 4.0 , NEMO Consortium (2017)
[7646]73   !! $Id$
74   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
75   !!----------------------------------------------------------------------
76
[3455]77#endif
78   !!======================================================================
79END MODULE agrif_ice
Note: See TracBrowser for help on using the repository browser.