Changeset 1859 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3
- Timestamp:
- 2010-05-06T10:40:07+02:00 (14 years ago)
- Location:
- branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3/ice.F90
r1471 r1859 1 1 MODULE ice 2 !!====================================================================== 3 !! *** MODULE ice *** 4 !! LIM-3 sea ice : variables defined in memory 5 !!===================================================================== 6 !! History : 3.0 ! 2008-03 (M. Vancoppenolle) LIM3 original code 7 !! 3.1 ! 2010-05 (Y. Aksenov, M. Vancoppenolle, G. Madec) add heat content exchanges 8 !!---------------------------------------------------------------------- 2 9 #if defined key_lim3 3 10 !!---------------------------------------------------------------------- 4 11 !! 'key_lim3' : LIM3 sea-ice model 5 12 !!---------------------------------------------------------------------- 6 !! History :7 !! 2.0 ! 03-08 (C. Ethe) F90: Free form and module8 !! 3.0 ! 08-03 (M. Vancoppenolle) : LIM3 !9 !!----------------------------------------------------------------------10 !! LIM 3.0, UCL-LOCEAN-IPSL (2005)11 !! $Id$12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt13 !!----------------------------------------------------------------------14 !! * Modules used15 13 USE par_ice ! LIM sea-ice parameters 16 14 17 15 IMPLICIT NONE 18 16 PRIVATE 19 !! 20 !!====================================================================== 21 !! *** MODULE ice *** 22 !! 23 !! ************** 24 !! * L I M 3.0 * 25 !! ************** 26 !! 27 !! ''in ice we trust'' 28 !! 29 !! This module contains the sea ice 30 !! diagnostics variables of ice defined 31 !! in memory 32 !! 33 !!====================================================================== 34 !! 17 18 !!---------------------------------------------------------------------- 35 19 !! LIM3 by the use of sweat, agile fingers and sometimes brain juice, 36 20 !! was developed in Louvain-la-Neuve by : 37 !!38 21 !! * Martin Vancoppenolle (UCL-ASTR, Belgium) 39 22 !! * Sylvain Bouillon (UCL-ASTR, Belgium) … … 41 24 !! 42 25 !! Based on extremely valuable earlier work by 43 !!44 26 !! * Thierry Fichefet 45 27 !! * Hugues Goosse 46 28 !! 47 29 !! The following persons also contributed to the code in various ways 48 !!49 30 !! * Gurvan Madec, Claude Talandier, Christian Ethe 50 31 !! and Rachid Benshila (LOCEAN-IPSL, France) 51 32 !! * Xavier Fettweis (UCL-ASTR), Ralph Timmermann (AWI, Germany) 52 !! * Bill Lipscomb (LANL), Cecilia Bitz (UWa) 53 !! and Elisabeth Hunke (LANL), USA. 33 !! * Bill Lipscomb (LANL), Cecilia Bitz (UWa) and Elisabeth Hunke (LANL), USA. 54 34 !! 55 35 !! (c) UCL-ASTR, 2005-2008 56 36 !! 57 !! For more info, the interested user is kindly invited to consult the 58 !! following references 37 !! For more info, the interested user is kindly invited to consult the following references 59 38 !! For model description and validation : 60 39 !! * Vancoppenolle et al., Ocean Modelling, 2008a. 61 40 !! * Vancoppenolle et al., Ocean Modelling, 2008b. 62 !!63 41 !! For a specific description of EVP : 64 42 !! * Bouillon et al., in prep for 2008. 65 !!66 !! Or the reference manual, that should be available by 200967 43 !! 68 44 !!====================================================================== … … 183 159 !!===================================================================== 184 160 185 LOGICAL, PUBLIC :: & 186 con_i = .false. ! switch for conservation test 161 LOGICAL, PUBLIC :: con_i = .false. ! switch for conservation test 187 162 188 163 !!-------------------------------------------------------------------------- … … 310 285 phicif , & !: Old ice thickness 311 286 fbif , & !: Heat flux at the ice base 312 rdmsnif, & !: Variation of snow mass 313 rdmicif, & !: Variation of ice mass 287 rdm_snw, & !: Variation of snow mass over 1 time step [Kg/m2] 288 rdq_snw, & !: heat content associated to rdm_snw [J/m2] 289 rdm_ice, & !: Variation of ice mass over 1 time step [Kg/m2] 290 rdq_ice, & !: heat content associated to rdm_ice [J/m2] 314 291 qldif , & !: heat balance of the lead (or of the open ocean) 315 292 qcmif , & !: Energy needed to bring the ocean surface layer until its freezing … … 506 483 #endif 507 484 485 !!---------------------------------------------------------------------- 486 !! NEMO/LIM 3.0, UCL-LOCEAN-IPSL (2010) 487 !! $Id$ 488 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 508 489 !!====================================================================== 509 490 END MODULE ice -
branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3/thd_ice.F90
r1465 r1859 2 2 !!====================================================================== 3 3 !! *** MODULE thd_ice *** 4 !! LIM sea-ice : Ice thermodynamics in 1D4 !! LIM-3 sea-ice : Ice thermodynamics in 1D 5 5 !!===================================================================== 6 !! History : 7 !! 2.0 ! 02-11 (C. Ethe) F90: Free form and module6 !! History : 3.0 ! 2008-03 (M. Vancoppenolle) LIM3 original code 7 !! 3.1 ! 2010-05 (Y. Aksenov, M. Vancoppenolle, G. Madec) add heat content exchanges 8 8 !!---------------------------------------------------------------------- 9 !! LIM 3.0, UCL-LOCEAN-IPSL (2008)10 !! $Id$11 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)12 !!----------------------------------------------------------------------13 !! * Modules used14 9 USE par_ice 15 10 … … 73 68 at_i_b , & !: " " frld 74 69 fbif_1d , & !: " " fbif 75 rdmicif_1d , & !: " " rdmicif 76 rdmsnif_1d , & !: " " rdmsnif 70 rdm_ice_1d , & !: " " rdm_ice 71 rdq_ice_1d , & !: " " rdm_ice 72 rdm_snw_1d , & !: " " rdm_snw 73 rdq_snw_1d , & !: " " rdm_snw 77 74 qlbbq_1d , & !: " " qlbsbq 78 75 dmgwi_1d , & !: " " dmgwi … … 149 146 ftotal_fin !: final total heat flux 150 147 151 REAL(wp), PUBLIC, DIMENSION(jpij,0:nlay_s) :: & !: 152 fc_s 153 REAL(wp), PUBLIC, DIMENSION(jpij,0:jkmax) :: & !: 154 fc_i 155 REAL(wp), PUBLIC, DIMENSION(jpij,nlay_s) :: & !: 156 de_s_lay 157 REAL(wp), PUBLIC, DIMENSION(jpij,jkmax) :: & !: 158 de_i_lay 159 INTEGER , PUBLIC :: & 160 jiindex_1d ! 1D index of debugging point 148 REAL(wp), PUBLIC, DIMENSION(jpij,0:nlay_s) :: fc_s 149 REAL(wp), PUBLIC, DIMENSION(jpij,0:jkmax) :: fc_i 150 REAL(wp), PUBLIC, DIMENSION(jpij,nlay_s) :: de_s_lay 151 REAL(wp), PUBLIC, DIMENSION(jpij,jkmax) :: de_i_lay 152 INTEGER , PUBLIC :: jiindex_1d ! 1D index of debugging point 161 153 154 !!---------------------------------------------------------------------- 155 !! NEMO/LIM 3.0, UCL-LOCEAN-IPSL (2010) 156 !! $Id$ 157 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 162 158 !!====================================================================== 163 159 END MODULE thd_ice
Note: See TracChangeset
for help on using the changeset viewer.