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

Timestamp:

2017-09-27T12:09:10+02:00 (7 years ago)

Author:

clem

Message:

trying to respect naming convention

File:

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

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

@@ -27 +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
+   INTEGER , PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   nptidx !: selected points for ice thermo
+   INTEGER , PUBLIC                                  ::   npti   !  number of selected points
 
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   qlead_1d     
@@ -175 +173 @@
 
       ii = 1
-      ALLOCATE( idxice   (jpij) ,   &
+      ALLOCATE( nptidx   (jpij) ,   &
          &      qlead_1d (jpij) , ftr_ice_1d(jpij) , qsr_ice_1d (jpij) ,   &
          &      fr1_i0_1d(jpij) , fr2_i0_1d (jpij) , qns_ice_1d(jpij)  ,   &