Ignore:
Timestamp:
2017-09-07T20:08:11+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - reaching the end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90

    r8498 r8512  
    6060      IF( kt == nit000 .AND. lwp .AND. kn == 2 ) THEN 
    6161         WRITE(numout,*) 
    62          WRITE(numout,*)' icecor :  correct sea ice variables if out of bounds '  
    63          WRITE(numout,*)' ~~~~~~~' 
     62         WRITE(numout,*) 'ice_cor:  correct sea ice variables if out of bounds '  
     63         WRITE(numout,*) '~~~~~~~' 
    6464      ENDIF 
    6565      !                             !--- conservation test 
     
    103103      !                             !  Rebin categories with thickness out of bounds     ! 
    104104      !                             !----------------------------------------------------- 
    105       IF ( jpl > 1 )   CALL ice_itd_reb 
     105      IF ( jpl > 1 )   CALL ice_itd_reb( kt ) 
    106106 
    107107      !                             !----------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.