- Timestamp:
- 2012-11-02T07:13:40+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/LIM_SRC_3/limitd_th.F90
r3517 r3524 2 2 !!====================================================================== 3 3 !! *** MODULE limitd_th *** 4 !! Thermodynamics of ice thickness distribution 5 !! computation of changes in g(h) 4 !! LIM3 ice model : ice thickness distribution: Thermodynamics 6 5 !!====================================================================== 7 6 !! History : - ! (W. H. Lipscomb and E.C. Hunke) CICE (c) original code … … 20 19 !! lim_itd_shiftice : 21 20 !!---------------------------------------------------------------------- 22 USE dom_ice ! LIM-3 domain 23 USE par_oce ! ocean parameters 24 USE dom_oce ! ocean domain 25 USE phycst ! physical constants (ocean directory) 26 USE thd_ice ! LIM-3 thermodynamic variables 27 USE ice ! LIM-3 variables 28 USE par_ice ! LIM-3 parameters 29 USE limthd_lac ! LIM-3 lateral accretion 30 USE limvar ! LIM-3 variables 31 USE limcons ! LIM-3 conservation 32 USE prtctl ! Print control 33 USE in_out_manager ! I/O manager 34 USE lib_mpp ! MPP library 35 USE wrk_nemo ! work arrays 21 USE par_oce ! ocean parameters 22 USE dom_oce ! ocean domain 23 USE phycst ! physical constants (ocean directory) 24 USE ice ! LIM-3 variables 25 USE par_ice ! LIM-3 parameters 26 USE dom_ice ! LIM-3 domain 27 USE thd_ice ! LIM-3 thermodynamic variables 28 USE limthd_lac ! LIM-3 lateral accretion 29 USE limvar ! LIM-3 variables 30 USE limcons ! LIM-3 conservation 31 USE prtctl ! Print control 32 USE in_out_manager ! I/O manager 33 USE lib_mpp ! MPP library 34 USE wrk_nemo ! work arrays 35 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 36 36 37 37 IMPLICIT NONE … … 49 49 50 50 !!---------------------------------------------------------------------- 51 !! NEMO/LIM3 4.0, UCL - NEMO Consortium (2010)51 !! NEMO/LIM3 3.4 , UCL - NEMO Consortium (2010) 52 52 !! $Id$ 53 53 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.