Changeset 834 for trunk/NEMO/LIM_SRC_3/limtrp.F90

Timestamp:

2008-03-07T18:11:35+01:00 (16 years ago)

Author:

ctlod

Message:

Clean comments and useless lines, see ticket:#72

File:

• trunk/NEMO/LIM_SRC_3/limtrp.F90 (modified) (7 diffs)

trunk/NEMO/LIM_SRC_3/limtrp.F90

@@ -6 +6 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3' :                                   LIM sea-ice model
+   !!   'key_lim3'                                      LIM3 sea-ice model
    !!----------------------------------------------------------------------
    !!   lim_trp      : advection/diffusion process of sea ice
@@ -26 +26 @@
    USE lib_mpp
    USE par_ice
-   USE limicepoints
 
    IMPLICIT NONE
@@ -50 +49 @@
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !!   LIM 2.0,  UCL-LOCEAN-IPSL (2005)
+   !!   LIM 3.0,  UCL-ASTR-LOCEAN-IPSL (2008)
    !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/limtrp.F90,v 1.5 2005/03/27 18:34:42 opalod Exp $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
@@ -75 +74 @@
       !!---------------------------------------------------------------------
       !! * Local Variables
-      INTEGER  ::   ji, jj, jk, jl, index, layer, &  ! dummy loop indices
+      INTEGER  ::   ji, jj, jk, jl, layer, &  ! dummy loop indices
                     initad           ! number of sub-timestep for the advection
       INTEGER  ::   ji_maxu, ji_maxv, jj_maxu, jj_maxv
@@ -81 +80 @@
       REAL(wp) ::  &                              
          zindb  ,  &
-         zacrith, &
-         zindsn , &
-         zindic , &
-         zusvosn, &
-         zusvoic, &
-         zignm  , &
-         zindhe , &
-         zvbord , &
-         zcfl   , &
-         zusnit , &
-         zrtt, ztsn, ztic1, ztic2, zsal, zage, &
-         zq, zbigval, ze1, ze2, ze, &
+         zindsn ,  &
+         zindic ,  &
+         zusvosn,  &
+         zusvoic,  &
+         zvbord ,  &
+         zcfl   ,  &
+         zusnit ,  &
+         zrtt, zsal, zage, &
+         zbigval, ze, &
          zmaxu, zmaxv
 
@@ -101 +97 @@
       REAL(wp), DIMENSION(jpi,jpj,jpl):: &  ! temporary workspace
          zs0ice, zs0sn, zs0a   ,         &
-         zs0c0 , zs0c1 , zs0c2 ,         &
+         zs0c0 ,                         &
          zs0sm , zs0oi
 
@@ -554 +550 @@
          END DO ! jl
 
-!-----------------------------------------------------------------------------!
-! 6) Correct age 
-!-----------------------------------------------------------------------------!
-
-!        DO jl = 1, jpl
-!           DO jj = 1, jpj
-!              DO ji = 1, jpi
-!                 IF (old_a_i(ji,jj,jl).eq.0.00) THEN
-!                     o_i(ji,jj,jl) = MAX( MIN( rdt_ice*float(numit)/86400.0, o_i(ji,jj,jl) ), 0.0 )
-!                 ENDIF
-!              END DO
-!           END DO
-!        END DO
-
-
       ENDIF