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

changes in style - part6 - more clarity (still not finished)

File:
1 edited

Legend:

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

    r8517 r8531  
    3838   PUBLIC   ice_itd_reb   ! called in iceerr 
    3939 
    40    ! ** ice-thickness distribution namelist (namice_itd) ** 
     40   ! ** ice-thickness distribution namelist (namitd) ** 
    4141   REAL(wp) ::   rn_himean        ! mean thickness of the domain (used to compute the distribution) 
    4242 
     
    643643      !! ** Purpose :   Initializes the ice thickness distribution 
    644644      !! ** Method  :   ... 
    645       !! ** input   :   Namelist namice_itd 
     645      !! ** input   :   Namelist namitd 
    646646      !!------------------------------------------------------------------- 
    647647      INTEGER  ::   jl    ! dummy loop index 
     
    649649      REAL(wp) ::   zhmax, znum, zden, zalpha   !   -      - 
    650650      !! 
    651       NAMELIST/namice_itd/ rn_himean, rn_himin 
    652       !!------------------------------------------------------------------ 
    653       ! 
    654       REWIND( numnam_ice_ref )      ! Namelist namice_itd in reference namelist : Parameters for ice 
    655       READ  ( numnam_ice_ref, namice_itd, IOSTAT = ios, ERR = 901) 
    656 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_itd in reference namelist', lwp ) 
    657  
    658       REWIND( numnam_ice_cfg )      ! Namelist namice_itd in configuration namelist : Parameters for ice 
    659       READ  ( numnam_ice_cfg, namice_itd, IOSTAT = ios, ERR = 902 ) 
    660 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_itd in configuration namelist', lwp ) 
    661       IF(lwm) WRITE ( numoni, namice_itd ) 
     651      NAMELIST/namitd/ rn_himean, rn_himin 
     652      !!------------------------------------------------------------------ 
     653      ! 
     654      REWIND( numnam_ice_ref )      ! Namelist namitd in reference namelist : Parameters for ice 
     655      READ  ( numnam_ice_ref, namitd, IOSTAT = ios, ERR = 901) 
     656901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namitd in reference namelist', lwp ) 
     657 
     658      REWIND( numnam_ice_cfg )      ! Namelist namitd in configuration namelist : Parameters for ice 
     659      READ  ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 
     660902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namitd in configuration namelist', lwp ) 
     661      IF(lwm) WRITE ( numoni, namitd ) 
    662662      ! 
    663663      IF(lwp) THEN                  ! control print 
     
    665665         WRITE(numout,*) 'ice_itd_init: Initialization of ice cat distribution ' 
    666666         WRITE(numout,*) '~~~~~~~~~~~~' 
    667          WRITE(numout,*) '   Namelist namice_itd : ' 
     667         WRITE(numout,*) '   Namelist namitd: ' 
    668668         WRITE(numout,*) '      mean ice thickness in the domain               rn_himean = ', rn_himean 
    669669         WRITE(numout,*) '      minimum ice thickness                          rn_himin  = ', rn_himin  
Note: See TracChangeset for help on using the changeset viewer.