New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 834 for trunk/NEMO/LIM_SRC_3/limistate.F90 – NEMO

Ignore:
Timestamp:
2008-03-07T18:11:35+01:00 (16 years ago)
Author:
ctlod
Message:

Clean comments and useless lines, see ticket:#72

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/LIM_SRC_3/limistate.F90

    r825 r834  
    66#if defined key_lim3 
    77   !!---------------------------------------------------------------------- 
    8    !!   'key_lim3' :                                   LIM sea-ice model 
     8   !!   'key_lim3' :                                    LIM3 sea-ice model 
    99   !!---------------------------------------------------------------------- 
    1010   !!   lim_istate      :  Initialisation of diagnostics ice variables 
    … …  
    2121   USE dom_ice 
    2222   USE ice 
    23    USE limicepoints 
    2423   USE lbclnk 
    2524 
    … …  
    7271 
    7372      !! * Local variables 
    74       INTEGER  ::   ji, jj, jk, jl, jm         ! dummy loop indices 
     73      INTEGER  ::   ji, jj, jk, jl             ! dummy loop indices 
    7574 
    7675      REAL(wp) ::   zidto,    &  ! temporary scalar 
    77          zs0, ztf, zbin, zai, zvi, zvs, zmi, zms, & 
     76         zs0, ztf, zbin, & 
    7877         zeps6, zeps, ztmelts, & 
    7978         epsi06 
Note: See TracChangeset for help on using the changeset viewer.