- Timestamp:
- 2017-09-18T16:54:04+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_sal.F90
r8531 r8534 2 2 !!====================================================================== 3 3 !! *** MODULE icethd_sal *** 4 !! LIM-3 sea-ice :computation of salinity variations in the ice4 !! sea-ice : computation of salinity variations in the ice 5 5 !!====================================================================== 6 6 !! History : - ! 2003-05 (M. Vancoppenolle) UCL-ASTR first coding for LIM3-1D … … 10 10 #if defined key_lim3 11 11 !!---------------------------------------------------------------------- 12 !! 'key_lim3' LIM-3sea-ice model12 !! 'key_lim3' ESIM sea-ice model 13 13 !!---------------------------------------------------------------------- 14 !! ice_thd_sal : salinity variations in the ice 14 !! ice_thd_sal : salinity variations in the ice 15 !! ice_thd_sal_init : initialization 15 16 !!---------------------------------------------------------------------- 16 USE par_oce ! ocean parameters17 USE phycst ! physical constants (ocean directory)18 USE ice ! LIMvariables19 USE ice1D ! LIM thermodynamics20 USE icevar ! LIM variables17 USE dom_oce ! ocean space and time domain 18 USE phycst ! physical constants 19 USE ice ! sea-ice: variables 20 USE ice1D ! sea-ice: thermodynamics variables 21 USE icevar ! sea-ice: operations 21 22 ! 22 23 USE in_out_manager ! I/O manager 23 24 USE lib_mpp ! MPP library 24 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)25 USE lib_fortran ! fortran utilities (glob_sum + no signed zero) 25 26 26 27 IMPLICIT NONE … … 153 154 #else 154 155 !!---------------------------------------------------------------------- 155 !! Default option Dummy Module No LIM-3sea-ice model156 !! Default option Dummy Module No ESIM sea-ice model 156 157 !!---------------------------------------------------------------------- 157 158 #endif
Note: See TracChangeset
for help on using the changeset viewer.