source: branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/LIM_SRC_3/dom_ice.F90 @ 7773

Last change on this file since 7773 was 7773, checked in by mattmartin, 4 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
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.