Changeset 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice1D.F90

Timestamp:

2017-09-01T15:49:35+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part1 - (now the code looks better txs to Gurvan's comments)

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice1D.F90 (modified) (3 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice1D.F90

@@ -8 +8 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                      LIM3 sea-ice model
-   !!----------------------------------------------------------------------
+   !!   'key_lim3'                                       LIM3 sea-ice model
+   !!----------------------------------------------------------------------
+   USE ice     , ONLY :   nlay_i, nlay_s, jpl   ! number of ice/snow layers and categories
+   !
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE ice, ONLY :   nlay_i, nlay_s, jpl
 
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC ice1D_alloc ! Routine called by nemogcm.F90
+   PUBLIC   ice1D_alloc   ! called by icestp.F90
 
    !!----------------------
@@ -26 +27 @@
    !: are the variables corresponding to 2d vectors
 
+!! please, DOCTOR naming convention   starting by i means LOCAL integer
+!!         ===>>>  rename idxice  as nidice or nidthd, or nidx_thd or midx ... ?
    INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   idxice !: selected points for ice thermo
    INTEGER , PUBLIC                                  ::   nidx   !  number of selected points
@@ -151 +154 @@
    
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: ice1D.F90 8379 2017-07-26 15:35:49Z clem $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)