Changeset 8342 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

Timestamp:

2017-07-15T17:27:14+02:00 (7 years ago)

Author:

clem

Message:

simplify the code

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90 (modified) (5 diffs)

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

@@ -37 +37 @@
 CONTAINS
 
-   SUBROUTINE lim_thd_sal( kideb, kiut )
+   SUBROUTINE lim_thd_sal
       !!-------------------------------------------------------------------
       !!                ***  ROUTINE lim_thd_sal  ***    
@@ -48 +48 @@
       !!               -> nn_icesal = 3 -> Sice = S(z)   [multiyear ice]
       !!---------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kideb, kiut   ! thickness category index
-      !
       INTEGER  ::   ji, jk                       ! dummy loop indices 
       REAL(wp) ::   iflush, igravdr              ! local scalars
@@ -65 +63 @@
       IF(  nn_icesal == 2  ) THEN
 
-         DO ji = kideb, kiut
+         DO ji = 1, nidx
 
             !---------------------------------------------------------
@@ -96 +94 @@
 
          ! Salinity profile
-         CALL lim_var_salprof1d( kideb, kiut )
+         CALL lim_var_salprof1d
          !
       ENDIF 
@@ -103 +101 @@
       !  3) vertical profile of salinity, constant in time                           |
       !------------------------------------------------------------------------------|
-      IF(  nn_icesal == 3  )   CALL lim_var_salprof1d( kideb, kiut )
+      IF(  nn_icesal == 3  )   CALL lim_var_salprof1d
 
       !