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.
thd_ice_2.F90 in trunk/NEMOGCM/NEMO/LIM_SRC_2 – NEMO

source: trunk/NEMOGCM/NEMO/LIM_SRC_2/thd_ice_2.F90 @ 7881

Last change on this file since 7881 was 5385, checked in by cetlod, 9 years ago

merge 2015/dev_r5204_CNRS_PISCES_dcy branch into the trunk, see ticket #1532

  • Property svn:keywords set to Id
File size: 6.5 KB
Line 
1MODULE thd_ice_2
2#if defined key_lim2
3   !!======================================================================
4   !!                       ***  MODULE thd_ice_2  ***
5   !! LIM 2.0 sea-ice :   Ice thermodynamics in 1D
6   !!=====================================================================
7   !! History :
8   !!   2.0  !  02-11  (C. Ethe)  F90: Free form and module
9   !!----------------------------------------------------------------------
10   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010)
11   !! $Id$
12   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
13   !!----------------------------------------------------------------------
14   USE par_ice_2
15   USE ice_2
16
17   IMPLICIT NONE
18   PRIVATE
19
20   PUBLIC thd_ice_alloc_2 ! Routine called by nemogcm.F90
21
22   !! * Share Module variables
23   REAL(wp) , PUBLIC ::   & !!! ** ice-thermo namelist (namicethd) **
24      hmelt            ,  &  !: maximum melting at the bottom
25      hicmin           ,  &  !: ice th. corr. to max. ener. in brine pocket
26      hiclim           ,  &  !: minimum ice thickness
27      amax             ,  &  !: maximum lead fraction
28      swiqst           ,  &  !: energy stored in brine pocket (1) or not (0)
29      sbeta            ,  &  !: numerical scheme for diffusion in ice
30      parlat           ,  &  !: percent. of energy used for lateral ablation
31      hakspl           ,  &  !: slope of distr. for Hakkinen-Mellro's lat. melt
32      hibspl           ,  &  !: slope of distribution for Hibler's lat. melt
33      exld             ,  &  !: exponent for leads-closure rate
34      hakdif           ,  &  !: coefficient for diffusions of ice and snow
35      thth             ,  &  !: thick. for comp. of eq. thermal conduct
36      hnzst            ,  &  !: thick. of the surf. layer in temp. comp.
37      parsub           ,  &  !: switch for snow sublimation or not
38      alphs                  !: coef. for snow density when snow-ice formation
39
40   REAL(wp), PUBLIC, DIMENSION(2)  ::  &  !:   
41      hiccrit                !: ice th. for lateral accretion in the NH (SH) (m)
42
43   REAL(wp) , PUBLIC ::   &  !:
44      uscomi,             &  !: inverse of minimum lead fraction
45      cnscg                  !: ratio  rcpsn/rcpic
46
47   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   &  !:
48      npb     ,   &   !: number of points where computations has to be done
49      npac            !: correspondance between the points
50
51   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   &  !:
52      qldif_1d    ,     &  !: corresponding to the 2D var  qldif
53      qcmif_1d    ,     &  !: corresponding to the 2D var  qcmif
54      thcm_1d     ,     &  !:    "                  "      thcm
55      fstbif_1d   ,     &  !:    "                  "      fstric
56      fltbif_1d   ,     &  !:    "                  "      ffltbif
57      fscbq_1d    ,     &  !:    "                  "      fscmcbq
58      qsr_ice_1d  ,     &  !:    "                  "      qsr_ice
59      fr1_i0_1d   ,     &  !:    "                  "      fr1_i0
60      fr2_i0_1d   ,     &  !:    "                  "      fr2_i0
61      qns_ice_1d  ,     &  !:    "                  "      qns_ice
62      qfvbq_1d    ,     &  !:    "                  "      qfvbq
63      sist_1d     ,     &  !:    "                  "      sist
64      tfu_1d      ,     &  !:    "                  "      tfu
65      sprecip_1d  ,     &  !:    "                  "      sprecip
66      h_snow_1d   ,     &  !:    "                  "      h_snow
67      h_ice_1d    ,     &  !:    "                  "      h_ice
68      frld_1d     ,     &  !:    "                  "      frld
69      qstbif_1d   ,     &  !:    "                  "      qstoif
70      fbif_1d     ,     &  !:    "                  "      fbif
71      rdm_ice_1d  ,     &  !:    "                  "      rdm_ice
72      rdq_ice_1d  ,     &  !:    "                  "      rdq_ice
73      rdm_snw_1d  ,     &  !:    "                  "      rdm_snw
74      rdq_snw_1d  ,     &  !:    "                  "      rdq_snw
75      qlbbq_1d    ,     &  !:    "                  "      qlbsbq
76      dmgwi_1d    ,     &  !:    "                  "      dmgwi
77      dvsbq_1d    ,     &  !:    "                  "      rdvosif
78      rdvomif_1d  ,     &  !:    "                  "      rdvomif
79      dvbbq_1d    ,     &  !:    "                  "      rdvobif
80      dvlbq_1d    ,     &  !:    "                  "      rdvolif
81      dvnbq_1d    ,     &  !:    "                  "      rdvolif
82      dqns_ice_1d ,     &  !:    "                  "      dqns_ice
83      qla_ice_1d  ,     &  !:    "                  "      qla_ice
84      dqla_ice_1d          !:    "                  "      dqla_ice
85
86   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   &  !:
87      tbif_1d              !: corresponding to the 2D var  tbif
88
89   !!----------------------------------------------------------------------
90   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010)
91   !! $Id$
92   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
93   !!----------------------------------------------------------------------
94 CONTAINS
95
96   INTEGER FUNCTION thd_ice_alloc_2()
97      !!----------------------------------------------------------------------
98      USE lib_mpp        ! MPP library
99      INTEGER :: ierr(5)
100      !!----------------------------------------------------------------------
101      !
102      ierr(:) = 0
103      !
104      ALLOCATE( npb(jpij), npac(jpij),                             &
105         &      qldif_1d(jpij), qcmif_1d(jpij), thcm_1d(jpij),     &
106         &      fstbif_1d(jpij), fltbif_1d(jpij), fscbq_1d(jpij),  &
107         &      qsr_ice_1d(jpij),fr1_i0_1d(jpij), fr2_i0_1d(jpij), Stat=ierr(1))
108         !
109      ALLOCATE( qns_ice_1d(jpij), qfvbq_1d(jpij), sist_1d(jpij), tfu_1d(jpij), &
110         &      sprecip_1d(jpij), h_snow_1d(jpij),h_ice_1d(jpij),frld_1d(jpij),&
111         &      qstbif_1d(jpij),  fbif_1d(jpij),  Stat=ierr(2))
112         !
113      ALLOCATE( rdm_ice_1d(jpij), rdq_ice_1d(jpij)                  , &
114         &      rdm_snw_1d(jpij), rdq_snw_1d(jpij), qlbbq_1d(jpij)  , &
115         &      dmgwi_1d(jpij)  , dvsbq_1d(jpij)  , rdvomif_1d(jpij), &
116         &      dvbbq_1d(jpij)  , dvlbq_1d(jpij)  , dvnbq_1d(jpij)  , &
117         &      Stat=ierr(3))
118         !
119      ALLOCATE( dqns_ice_1d(jpij) ,qla_ice_1d(jpij), dqla_ice_1d(jpij), &
120         &      tbif_1d(jpij, jplayersp1), Stat=ierr(4))
121         !
122      thd_ice_alloc_2 = MAXVAL(ierr)
123      IF( thd_ice_alloc_2 /= 0 )   CALL ctl_warn('thd_ice_alloc_2: failed to allocate arrays')
124      !
125   END FUNCTION thd_ice_alloc_2
126
127#endif
128   !!======================================================================
129END MODULE thd_ice_2
Note: See TracBrowser for help on using the repository browser.