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 trunk/NEMO/LIM_SRC_2 – NEMO

source: trunk/NEMO/LIM_SRC_2/dom_ice_2.F90 @ 1156

Last change on this file since 1156 was 1156, checked in by rblod, 16 years ago

Update Id and licence information, see ticket #210
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.0 KB
RevLine 
[821]1MODULE dom_ice_2
[3]2   !!======================================================================
[12]3   !!                   ***  MODULE  dom_ice  ***
[821]4   !! LIM 2.0 Sea Ice :   Domain  variables
[3]5   !!======================================================================
[508]6   !! History :   2.0  !  03-08  (C. Ethe)  Free form and module
[12]7   !!----------------------------------------------------------------------
[888]8#if defined key_lim2
[508]9   !!----------------------------------------------------------------------
[247]10   !!   LIM 2.0, UCL-LOCEAN-IPSL (2005)
[1156]11   !! $Id$
[508]12   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
[12]13   !!----------------------------------------------------------------------
[821]14   USE par_ice_2
[3]15
16   IMPLICIT NONE
[77]17   PRIVATE
[3]18
[508]19   LOGICAL, PUBLIC ::   l_jeq     = .TRUE.     !: Equator inside the domain flag
20   LOGICAL, PUBLIC ::   ln_limini = .FALSE.    !: Ice initialization state
21   LOGICAL, PUBLIC ::   ln_limdmp = .FALSE.    !: Ice damping
[3]22
[508]23   INTEGER, PUBLIC ::   njeq , njeqm1          !: j-index of the equator if it is inside the domain
24      !                                        !  (otherwise = jpj+10 (SH) or -10 (SH) )
[3]25
[508]26   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   fs2cor , fcor,   &  !: coriolis factor and coeficient
27      &                                              covrai ,         &  !: sine of geographic latitude
28      &                                              area   ,         &  !: surface of grid cell
29      &                                              tms    , tmu        !: temperature and velocity points masks
30   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2)     ::   wght   ,         &  !: weight of the 4 neighbours to compute averages
31      &                                              akappa , bkappa     !: first and third group of metric coefficients
32   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) ::   alambd   !: second group of metric coefficients
[3]33
34   !!======================================================================
[821]35#endif
36END MODULE dom_ice_2
Note: See TracBrowser for help on using the repository browser.