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.
ice_oce.F90 in branches/dev_004_VVL/NEMO/OPA_SRC – NEMO

source: branches/dev_004_VVL/NEMO/OPA_SRC/ice_oce.F90 @ 1434

Last change on this file since 1434 was 1218, checked in by smasson, 16 years ago

first implementation of the new coupling interface in the trunk, see ticket:155
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.8 KB
Line 
1MODULE ice_oce
2   !!======================================================================
3   !!                 ***  MODULE  ice_oce  ***
4   !! Ocean - ice  :  ice variables defined in memory
5   !!======================================================================
6   !! History :  1.0  !  02-11  (G. Madec)  F90: Free form and module
7   !!----------------------------------------------------------------------
8#if defined key_lim3 || defined key_lim2
9   !!----------------------------------------------------------------------
10   !!   'key_lim2' or 'key_lim3'   :               LIM 2.0 or 3.0 ice model
11   !!----------------------------------------------------------------------
12   USE par_oce         ! ocean parameters
13
14   IMPLICIT NONE
15   PRIVATE
16 
17# if defined  key_lim2
18   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .TRUE.    !: LIM-2 ice model
19   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.   !: no LIM-3
20   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'B'       !: 'B'-grid ice-velocity
21# endif
22# if defined  key_lim3
23   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.   !: no LIM-2
24   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .TRUE.    !: LIM-3 ice model
25   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'       !: 'B'-grid ice-velocity
26# endif
27
28   !!----------------------------------------------------------------------
29   !! ice-ocean common variables
30   !!----------------------------------------------------------------------
31
32# if defined key_lim3
33   ! LIM-3                                             !!! ice to ocean fields
34   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   catm_ice   !: cloud cover              !!gm never used
35   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tatm_ice   !: air temperature          !!gm nothing to do here...
36   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   icethi     !: ice thickness            !!gm never used
37# endif
38   
39   REAL(wp), PUBLIC ::   rdt_ice      !: ice time step
40   REAL(wp), PUBLIC ::   dtsd2        !: ice time step divide by 2
41
42#else
43   !!----------------------------------------------------------------------
44   !!   Default option                      NO LIM 2.0 or 3.0 sea-ice model
45   !!----------------------------------------------------------------------
46   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim2        = .FALSE.  !: no LIM-2 ice model
47   LOGICAL         , PUBLIC, PARAMETER ::   lk_lim3        = .FALSE.  !: no LIM-3 ice model
48   CHARACTER(len=1), PUBLIC            ::   cice_grid      = 'C'      !: 'B'-grid ice-velocity
49#endif
50
51   !!----------------------------------------------------------------------
52   !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008)
53   !! $Id$
54   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
55   !!----------------------------------------------------------------------
56END MODULE ice_oce
Note: See TracBrowser for help on using the repository browser.