Changeset 508 for trunk/NEMO/LIM_SRC/dom_ice.F90
- Timestamp:
- 2006-10-03T17:58:55+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC/dom_ice.F90
r420 r508 4 4 !! LIM Sea Ice : Domain variables 5 5 !!====================================================================== 6 !! History : 7 !! 2.0 ! 03-08 (C. Ethe) Free form and module 6 !! History : 2.0 ! 03-08 (C. Ethe) Free form and module 7 !!---------------------------------------------------------------------- 8 8 9 !!---------------------------------------------------------------------- 9 10 !! LIM 2.0, UCL-LOCEAN-IPSL (2005) 10 11 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt12 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 12 13 !!---------------------------------------------------------------------- 13 !! * Modules used14 14 USE par_ice 15 15 … … 17 17 PRIVATE 18 18 19 !! * Share module variables 20 LOGICAL, PUBLIC :: & !: 21 l_jeq = .TRUE. , & !: Equator inside the domain flag 22 ln_limini = .FALSE., & !: Ice initialization state 23 ln_limdmp = .FALSE. !: Ice damping 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 24 22 25 INTEGER, PUBLIC :: & !: 26 njeq , njeqm1 !: j-index of the equator if it is inside the domain 27 ! ! (otherwise = jpj+10 (SH) or -10 (SH) ) 23 INTEGER, PUBLIC :: njeq , njeqm1 !: j-index of the equator if it is inside the domain 24 ! ! (otherwise = jpj+10 (SH) or -10 (SH) ) 28 25 29 REAL(wp), PUBLIC, DIMENSION(jpi,jpj) :: & !: 30 fs2cor , & !: coriolis factor 31 fcor , & !: coriolis coefficient 32 covrai , & !: sine of geographic latitude 33 area , & !: surface of grid cell 34 tms , tmu !: temperature and velocity points masks 35 36 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2) :: & !: 37 wght , & !: weight of the 4 neighbours to compute averages 38 akappa , & !: first group of metric coefficients 39 bkappa !: third group of metric coefficients 40 41 REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) :: & !: 42 alambd !: second group of metric coefficients 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 43 33 44 34 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.