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/icedia.F90

    r8505 r8512  
    164164      INTEGER            ::   ios, ierror   ! local integer 
    165165      !! 
    166       NAMELIST/namicediag/ ln_limdiachk, ln_limdiahsb, ln_limctl, iiceprt, jiceprt   
     166      NAMELIST/namice_dia/ ln_limdiachk, ln_limdiahsb, ln_limctl, iiceprt, jiceprt   
    167167      !!---------------------------------------------------------------------- 
    168168      ! 
    169       REWIND( numnam_ice_ref )      ! Namelist namicediag in reference namelist : Parameters for ice 
    170       READ  ( numnam_ice_ref, namicediag, IOSTAT = ios, ERR = 901) 
    171 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicediag in reference namelist', lwp ) 
    172  
    173       REWIND( numnam_ice_cfg )      ! Namelist namicediag in configuration namelist : Parameters for ice 
    174       READ  ( numnam_ice_cfg, namicediag, IOSTAT = ios, ERR = 902 ) 
    175 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicediag in configuration namelist', lwp ) 
    176       IF(lwm) WRITE ( numoni, namicediag ) 
     169      REWIND( numnam_ice_ref )      ! Namelist namice_dia in reference namelist : Parameters for ice 
     170      READ  ( numnam_ice_ref, namice_dia, IOSTAT = ios, ERR = 901) 
     171901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dia in reference namelist', lwp ) 
     172 
     173      REWIND( numnam_ice_cfg )      ! Namelist namice_dia in configuration namelist : Parameters for ice 
     174      READ  ( numnam_ice_cfg, namice_dia, IOSTAT = ios, ERR = 902 ) 
     175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dia in configuration namelist', lwp ) 
     176      IF(lwm) WRITE ( numoni, namice_dia ) 
    177177      ! 
    178178      IF(lwp) THEN                  ! control print 
     
    180180         WRITE(numout,*) 'ice_dia_init: ice diagnostics' 
    181181         WRITE(numout,*) ' ~~~~~~~~~~~' 
    182          WRITE(numout,*) '   Namelist namicediag : ' 
     182         WRITE(numout,*) '   Namelist namice_dia : ' 
    183183         WRITE(numout,*) '      Diagnose online heat/mass/salt budget      ln_limdiachk = ', ln_limdiachk 
    184184         WRITE(numout,*) '      Output          heat/mass/salt budget      ln_limdiahsb = ', ln_limdiahsb 
Note: See TracChangeset for help on using the changeset viewer.