source: branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/LIM_SRC_3/dom_ice.F90 @ 5600

Last change on this file since 5600 was 5600, checked in by andrewryan, 5 years ago

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

  • Property svn:keywords set to Id
File size: 2.0 KB
Line 
1MODULE dom_ice
2   !!======================================================================
3   !!                   ***  MODULE  dom_ice  ***
4   !! LIM-3 Sea Ice :   Domain  variables
5   !!======================================================================
6   !! History :  3.0  ! 2003-08  (M. Vancoppenolle)  LIM-3 original code
7   !!            3.5  ! 2011-02  (G. Madec) dynamical allocation
8   !!----------------------------------------------------------------------
9   USE in_out_manager ! I/O manager
10   USE lib_mpp        ! MPP library
11   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
12
13   IMPLICIT NONE
14   PRIVATE
15
16   PUBLIC dom_ice_alloc   ! Routine called by nemogcm.F90
17
18   LOGICAL, PUBLIC ::   l_jeq = .TRUE.       !: Equator inside the domain flag
19
20   INTEGER, PUBLIC ::   njeq , njeqm1        !: j-index of the equator if it is inside the domain
21
22   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::   fcor   !: coriolis coefficient
23   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   wght   !: weight of the 4 neighbours to compute averages
24
25   !!----------------------------------------------------------------------
26   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
27   !! $Id$
28   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
29   !!----------------------------------------------------------------------
30CONTAINS
31
32   FUNCTION dom_ice_alloc()
33      !!-------------------------------------------------------------------
34      !!            *** Routine dom_ice_alloc ***
35      !!-------------------------------------------------------------------
36      INTEGER :: dom_ice_alloc
37      !!-------------------------------------------------------------------
38      !
39      ALLOCATE( fcor(jpi,jpj), wght(jpi,jpj,2,2), STAT = dom_ice_alloc )
40      !
41      IF( dom_ice_alloc /= 0 )   CALL ctl_warn( 'dom_ice_alloc: failed to allocate arrays.' )
42      !
43   END FUNCTION dom_ice_alloc
44
45   !!======================================================================
46END MODULE dom_ice
Note: See TracBrowser for help on using the repository browser.