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 8885 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90 – NEMO

Ignore:
Timestamp:
2017-12-04T10:41:40+01:00 (6 years ago)
Author:
clem
Message:

remove useless references to clem's comments

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90

    r8882 r8885  
    615615                  zh_i(ji,i_fill) = ( zhti(ji) * zati(ji) - zV ) / MAX( za_i(ji,i_fill), epsi10 )  
    616616                  ! 
    617                   ! clem: correction if concentration of upper cat is greater than lower cat 
    618                   !       (it should be a gaussian around jl0 but sometimes it is not) 
     617                  ! correction if concentration of upper cat is greater than lower cat 
     618                  !    (it should be a gaussian around jl0 but sometimes it is not) 
    619619                  IF ( jl0 /= jpl ) THEN 
    620620                     DO jl = jpl, jl0+1, -1 
Note: See TracChangeset for help on using the changeset viewer.