- Timestamp:
- 2017-09-01T15:49:35+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice1D.F90
r8420 r8486 8 8 #if defined key_lim3 9 9 !!---------------------------------------------------------------------- 10 !! 'key_lim3' LIM3 sea-ice model 11 !!---------------------------------------------------------------------- 10 !! 'key_lim3' LIM3 sea-ice model 11 !!---------------------------------------------------------------------- 12 USE ice , ONLY : nlay_i, nlay_s, jpl ! number of ice/snow layers and categories 13 ! 12 14 USE in_out_manager ! I/O manager 13 15 USE lib_mpp ! MPP library 14 USE ice, ONLY : nlay_i, nlay_s, jpl15 16 16 17 IMPLICIT NONE 17 18 PRIVATE 18 19 19 PUBLIC ice1D_alloc ! Routine called by nemogcm.F9020 PUBLIC ice1D_alloc ! called by icestp.F90 20 21 21 22 !!---------------------- … … 26 27 !: are the variables corresponding to 2d vectors 27 28 29 !! please, DOCTOR naming convention starting by i means LOCAL integer 30 !! ===>>> rename idxice as nidice or nidthd, or nidx_thd or midx ... ? 28 31 INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: idxice !: selected points for ice thermo 29 32 INTEGER , PUBLIC :: nidx ! number of selected points … … 151 154 152 155 !!---------------------------------------------------------------------- 153 !! NEMO/ LIM3 4.0 , UCL - NEMO Consortium (2011)156 !! NEMO/ICE 4.0 , NEMO Consortium (2017) 154 157 !! $Id: ice1D.F90 8379 2017-07-26 15:35:49Z clem $ 155 158 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.