- Timestamp:
- 2012-11-21T14:19:18+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90
r3294 r3625 10 10 #if defined key_lim3 11 11 !!---------------------------------------------------------------------- 12 !! 'key_lim3' : LIM sea-ice model 13 !!---------------------------------------------------------------------- 14 !! ice_init : sea-ice model initialization 15 !!---------------------------------------------------------------------- 16 USE phycst ! physical constants 17 USE dom_oce ! ocean domain 18 USE sbc_oce ! Surface boundary condition: ocean fields 19 USE sbc_ice ! Surface boundary condition: ice fields 20 USE ice ! LIM variables 21 USE par_ice ! LIM parameters 22 USE dom_ice ! LIM domain 23 USE thd_ice ! LIM thermodynamical variables 24 USE limitd_me ! LIM ice thickness distribution 25 USE limmsh ! LIM mesh 26 USE limistate ! LIM initial state 27 USE limrst ! LIM restart 28 USE limthd ! LIM ice thermodynamics 29 USE limthd_sal ! LIM ice thermodynamics: salinity 30 USE limvar ! LIM variables 31 USE limsbc ! LIM surface boundary condition 32 USE in_out_manager ! I/O manager 33 USE lib_mpp ! MPP library 12 !! 'key_lim3' LIM sea-ice model 13 !!---------------------------------------------------------------------- 14 !! ice_init : sea-ice model initialization 15 !!---------------------------------------------------------------------- 16 USE phycst ! physical constants 17 USE dom_oce ! ocean domain 18 USE sbc_oce ! Surface boundary condition: ocean fields 19 USE sbc_ice ! Surface boundary condition: ice fields 20 USE ice ! LIM variables 21 USE par_ice ! LIM parameters 22 USE dom_ice ! LIM domain 23 USE thd_ice ! LIM thermodynamical variables 24 USE limitd_me ! LIM ice thickness distribution 25 USE limmsh ! LIM mesh 26 USE limistate ! LIM initial state 27 USE limrst ! LIM restart 28 USE limthd ! LIM ice thermodynamics 29 USE limthd_sal ! LIM ice thermodynamics: salinity 30 USE limvar ! LIM variables 31 USE limsbc ! LIM surface boundary condition 32 USE in_out_manager ! I/O manager 33 USE lib_mpp ! MPP library 34 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 34 35 35 36 IMPLICIT NONE … … 39 40 40 41 !!---------------------------------------------------------------------- 41 !! NEMO/LIM3 4.0, UCL - NEMO Consortium (2011)42 !! NEMO/LIM3 3.4 , UCL - NEMO Consortium (2011) 42 43 !! $Id$ 43 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 79 80 CALL lim_thd_sal_init ! set ice salinity parameters 80 81 ! 81 rdt_ice = nn_fsbc * rdttra(1) ! sea-ice timestep 82 rdt_ice = nn_fsbc * rdttra(1) ! sea-ice timestep 83 r1_rdtice = 1._wp / rdt_ice ! sea-ice timestep inverse 82 84 ! 83 85 CALL lim_msh ! ice mesh initialization
Note: See TracChangeset
for help on using the changeset viewer.