Changeset 8885 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

Timestamp:

2017-12-04T10:41:40+01:00 (6 years ago)

Author:

clem

Message:

remove useless references to clem's comments

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90 (modified) (2 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceistate.F90

@@ -226 +226 @@
                         zh_i_ini(ji,jj,i_fill) = ( zvt_i_ini(ji,jj) - zV ) / MAX( za_i_ini(ji,jj,i_fill), epsi10 ) 
 
-                        ! clem: correction if concentration of upper cat is greater than lower cat
-                        !       (it should be a gaussian around jl0 but sometimes it is not)
+                        ! correction if concentration of upper cat is greater than lower cat
+                        !   (it should be a gaussian around jl0 but sometimes it is not)
                         IF ( jl0 /= jpl ) THEN
                            DO jl = jpl, jl0+1, -1
@@ -471 +471 @@
       v_ice_b(:,:)     = v_ice(:,:)
 
-!!!clem
-!!      ! Output the initial state and forcings
+!!clem: output of initial state should be written here but it is impossible because
+!!      the ocean and ice are in the same file
 !!      CALL dia_wri_state( 'output.init', nit000 )
-!!!      
       !
    END SUBROUTINE ice_istate