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.
dom_ice.F90 in branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/LIM_SRC_3 – NEMO

source: branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/LIM_SRC_3/dom_ice.F90 @ 5307

Last change on this file since 5307 was 5307, checked in by davestorkey, 9 years ago

UKMO dev_r5107_eorca025_closea branch: remove SVN keyword updating
and clear SVN keyword information.

File size: 2.8 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   !!            4.0  ! 2011-02  (G. Madec) dynamical allocation
8   !!----------------------------------------------------------------------
9   USE par_ice        ! LIM-3 parameter
10   USE in_out_manager ! I/O manager
11   USE lib_mpp        ! MPP library
12   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
13
14   IMPLICIT NONE
15   PRIVATE
16
17   PUBLIC dom_ice_alloc   ! Routine called by nemogcm.F90
18
19   LOGICAL, PUBLIC ::   l_jeq = .TRUE.       !: Equator inside the domain flag
20
21   INTEGER, PUBLIC ::   njeq , njeqm1        !: j-index of the equator if it is inside the domain
22
23   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   fcor       !: coriolis coefficient
24   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   covrai     !: sine of geographic latitude
25   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   area       !: surface of grid cell
26   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tms, tmi   !: temperature mask, mask for stress
27   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tmu, tmv   !: mask at u and v velocity points
28   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tmf        !: mask at f-point
29
30   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::   wght   !: weight of the 4 neighbours to compute averages
31
32   !!----------------------------------------------------------------------
33   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
34   !! $Id$
35   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
36   !!----------------------------------------------------------------------
37CONTAINS
38
39   FUNCTION dom_ice_alloc()
40      !!-------------------------------------------------------------------
41      !!            *** Routine dom_ice_alloc ***
42      !!-------------------------------------------------------------------
43      INTEGER :: dom_ice_alloc
44      !!-------------------------------------------------------------------
45      !
46      ALLOCATE( fcor(jpi,jpj)                   ,      &
47         &      covrai(jpi,jpj) , area(jpi,jpj) ,      &
48         &      tms   (jpi,jpj) , tmi (jpi,jpj) ,      &
49         &      tmu   (jpi,jpj) , tmv (jpi,jpj) ,      &
50         &      tmf   (jpi,jpj) ,                      &
51         &      wght(jpi,jpj,2,2)               , STAT = dom_ice_alloc )
52      !
53      IF( dom_ice_alloc /= 0 )   CALL ctl_warn( 'dom_ice_alloc: failed to allocate arrays.' )
54      !
55   END FUNCTION dom_ice_alloc
56
57   !!======================================================================
58END MODULE dom_ice
Note: See TracBrowser for help on using the repository browser.