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_2.F90 in branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2 – NEMO

source: branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/dom_ice_2.F90 @ 1855

Last change on this file since 1855 was 1855, checked in by gm, 14 years ago

ticket:#665 style change only, with the suppression of thd_ice_2 (merged in ice_2)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.1 KB
Line 
1MODULE dom_ice_2
2   !!======================================================================
3   !!                   ***  MODULE  dom_ice  ***
4   !! LIM-2 Sea Ice :   Domain  variables
5   !!======================================================================
6   !! History :   2.0  !  2003-08  (C. Ethe)  Free form and module
7   !!----------------------------------------------------------------------
8#if defined key_lim2
9   !!----------------------------------------------------------------------
10   !!   'key_lim2' :                                  LIM 2.0 sea-ice model
11   !!----------------------------------------------------------------------
12   USE par_ice_2
13
14   IMPLICIT NONE
15   PRIVATE
16
17   LOGICAL, PUBLIC ::   l_jeq     = .TRUE.     !: Equator inside the domain flag
18   INTEGER, PUBLIC ::   njeq , njeqm1          !: j-index of the equator if it is inside the domain
19
20   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   fs2cor, fcor     !: coriolis factor and coeficient
21   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   covrai           !: sine of geographic latitude
22   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   area             !: surface of grid cell
23   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   tms   , tmu      !: temperature and velocity points masks
24   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2)     ::   wght             !: weight of the 4 neighbours to compute averages
25   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2)     ::   akappa, bkappa   !: first and third group of metric coefficients
26   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) ::   alambd           !: second group of metric coefficients
27
28#else
29   !!----------------------------------------------------------------------
30   !!   Default option          Dummy module       NO LIM 2.0 sea-ice model
31   !!----------------------------------------------------------------------
32#endif
33
34   !!-------- -------------------------------------------------------------
35   !! NEMO/LIM 3.3,  UCL-LOCEAN-IPSL (2010)
36   !! $Id$
37   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
38   !!======================================================================
39END MODULE dom_ice_2
Note: See TracBrowser for help on using the repository browser.