source: trunk/NEMO/LIM_SRC/dom_ice.F90 @ 12

Last change on this file since 12 was 12, checked in by opalod, 17 years ago

CT : UPDATE001 : First major NEMO update

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1MODULE dom_ice
2   !!======================================================================
3   !!                   ***  MODULE  dom_ice  ***
4   !! LIM Sea Ice :   Domain  variables
5   !!======================================================================
6   !! History :
7   !!   2.0  !  03-08  (C. Ethe)  Free form and module
8   !!----------------------------------------------------------------------
9   !!  LIM 2.0, UCL-LODYC-IPSL (2002)
10   !!----------------------------------------------------------------------
11   !! * Modules used
12   USE par_ice
13
14   IMPLICIT NONE
15   PUBLIC
16
17   REAL(wp) ::  &   !:
18      dz            !: depht of the 1st ocean level
19
20   REAL(wp),DIMENSION(jpi,jpj) ::  &  !:
21      area          !: Surface of a grid square
22
23   REAL(wp),DIMENSION(jpi,jpj,2,2) ::  &  !:
24      wght   ,   &  !: weight of the 4 neighbours to compute averages
25      akappa ,   &  !: first group of metric coefficients
26      bkappa        !: third group of metric coefficients
27
28   REAL(wp),DIMENSION(jpi,jpj) :: &  !:
29      tms , tmu     !: masks arrays
30
31   REAL(wp),DIMENSION(jpi,jpj,2,2,2,2) ::  &  !:
32      alambd        !: second group of metric coefficients
33
34   REAL(wp),DIMENSION(jpi,jpj) ::  &  !:
35      fs2cor ,   &  !:  coriolis factor
36      fcor   ,   &  !:  coriolis coefficient
37      covrai ,   &  !:  sine of geographic latitude
38      aire          !:  total area
39
40   INTEGER  :: &    !:
41      jeq , jeqm1   !:
42
43   !!======================================================================
44END MODULE dom_ice
Note: See TracBrowser for help on using the repository browser.