Changeset 834 for trunk/NEMO/LIM_SRC_3/limthd.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/limthd.F90 (modified) (12 diffs)

trunk/NEMO/LIM_SRC_3/limthd.F90

@@ -6 +6 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3' :                                   LIM sea-ice model
+   !!   'key_lim3'                                      LIM3 sea-ice model
    !!----------------------------------------------------------------------
    !!   lim_thd      : thermodynamic of sea ice
@@ -22 +22 @@
    USE dom_ice         ! LIM sea-ice domain
    USE iceini
-   USE limicepoints
    USE limthd_dif
    USE limthd_dh
@@ -84 +83 @@
       !! * Local variables
       INTEGER  ::  ji, jj, jk, jl,  &
-                   zjid , zjjd ,    &
                    zji  , zjj,      &   ! dummy loop indices
                    nbpb ,           &   ! nb of icy pts for thermo. cal.
@@ -95 +93 @@
       REAL(wp) ::   &
          zinda              ,  &   ! switch for test. the val. of concen.
-         zindb, zindg       ,  &   ! switches for test. the val of arg
-         za , zh, zthsnice  ,  &
+         zindb,                &   ! switches for test. the val of arg
+         zthsnice           ,  &
          zfric_u            ,  &   ! friction velocity 
          zfnsol             ,  &   ! total non solar heat
@@ -104 +102 @@
 
       REAL(wp) ::   &
-         ztmelts            ,  &   ! ice layers melting point
-         zaaa               ,  &   ! numeric value for 2nd degree polynomial
-         zbbb               ,  &   !    "      "    "   "    "        "
-         zccc               ,  &   !    "      "    "   "    "        "
-         zdiscrim           ,  &   !    "      "    "   "    "        "
-         zq                 ,  &   ! sea ice temporary energy of melting
-         zqold              ,  &   ! test variable for ice heat content
          zareamin
          
@@ -224 +215 @@
 
 ! still need to be updated : fdtcn !!!!
-!           !-- Lead heat budget (part 1, next one is in limthd_dh, then limthd_lab
+!           !-- Lead heat budget (part 1, next one is in limthd_dh
 !           !-- qldif -- (or qldif_1d in 1d routines)
             zfontn         = sprecip(ji,jj) * lfus              !   energy of melting
@@ -510 +501 @@
       REAL(wp) :: &
          zdes,    &          ! snow heat content increment (dummy)
-         ztmelts, &          ! layer melting point (dummy)
          zeps                ! very small value (1.e-10)
 
@@ -560 +550 @@
          jl                            !: category number
 
-      REAL(wp), DIMENSION(jpl) ::   &  !: ! goes to trash
-         zdummy
-
       REAL(wp)                 ::   &  !: ! goes to trash
          meance,                    &  !: mean conservation error
@@ -573 +560 @@
       INTEGER  :: &
          ji,jj,jk,                  &  !: loop indices
-         zji, zjj, zjiindex
+         zji, zjj
       !!---------------------------------------------------------------------
 
@@ -745 +732 @@
          jl                            !: category number
 
-      REAL(wp), DIMENSION(jpl) ::   &  !: ! goes to trash
-         zdummy
-
       REAL(wp)                 ::   &  !: ! goes to trash
          meance,                    &  !: mean conservation error
-         max_cons_err,              &  !: maximum tolerated conservation error
-         max_surf_err                  !: maximum tolerated surface error
+         max_cons_err                  !: maximum tolerated conservation error
 
       INTEGER ::                    &
@@ -758 +741 @@
       INTEGER  :: &
          ji,jj,jk,                  &  !: loop indices
-         zji, zjj, zjiindex
+         zji, zjj
 
       !!---------------------------------------------------------------------
@@ -974 +957 @@
       ENDIF
             
-      uscomi = 1.0 / ( 1.0 - amax )   ! inverse of minimum lead fraction
       rcdsn = hakdif * rcdsn 
       rcdic = hakdif * rcdic