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

    r8517 r8531  
    3434   REAL(wp) , PARAMETER ::   r1_c2 = 1. / rc2 
    3535   ! 
    36    ! ** albedo namelist (namice_alb) 
     36   ! ** albedo namelist (namalb) 
    3737   INTEGER  ::   nn_ice_alb       ! type of albedo scheme: 0: Shine & Henderson-Sellers (JGR 1985) 
    3838   !                                      !                         1: "home made" based on Brandt et al. (JClim 2005) 
     
    310310      !! ** Purpose :   initializations for the albedo parameters 
    311311      !! 
    312       !! ** Method  :   Read the namelist namice_alb 
     312      !! ** Method  :   Read the namelist namalb 
    313313      !!---------------------------------------------------------------------- 
    314314      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    315315      !! 
    316       NAMELIST/namice_alb/ nn_ice_alb, rn_alb_sdry, rn_alb_smlt, rn_alb_idry, rn_alb_imlt, rn_alb_dpnd 
    317       !!---------------------------------------------------------------------- 
    318       ! 
    319       REWIND( numnam_ice_ref )              ! Namelist namice_alb in reference namelist : Albedo parameters 
    320       READ  ( numnam_ice_ref, namice_alb, IOSTAT = ios, ERR = 901) 
    321 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_alb in reference namelist', lwp ) 
    322  
    323       REWIND( numnam_ice_cfg )              ! Namelist namice_alb in configuration namelist : Albedo parameters 
    324       READ  ( numnam_ice_cfg, namice_alb, IOSTAT = ios, ERR = 902 ) 
    325 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_alb in configuration namelist', lwp ) 
    326       IF(lwm) WRITE ( numoni, namice_alb ) 
     316      NAMELIST/namalb/ nn_ice_alb, rn_alb_sdry, rn_alb_smlt, rn_alb_idry, rn_alb_imlt, rn_alb_dpnd 
     317      !!---------------------------------------------------------------------- 
     318      ! 
     319      REWIND( numnam_ice_ref )              ! Namelist namalb in reference namelist : Albedo parameters 
     320      READ  ( numnam_ice_ref, namalb, IOSTAT = ios, ERR = 901) 
     321901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namalb in reference namelist', lwp ) 
     322 
     323      REWIND( numnam_ice_cfg )              ! Namelist namalb in configuration namelist : Albedo parameters 
     324      READ  ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 
     325902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namalb in configuration namelist', lwp ) 
     326      IF(lwm) WRITE ( numoni, namalb ) 
    327327      ! 
    328328      IF(lwp) THEN                      ! Control print 
     
    330330         WRITE(numout,*) 'ice_alb_init: set albedo parameters' 
    331331         WRITE(numout,*) '~~~~~~~~~~~~' 
    332          WRITE(numout,*) '   Namelist namice_alb : albedo ' 
     332         WRITE(numout,*) '   Namelist namalb:' 
    333333         WRITE(numout,*) '      choose the albedo parameterization   nn_ice_alb  = ', nn_ice_alb 
    334334         WRITE(numout,*) '      albedo of dry snow                   rn_alb_sdry = ', rn_alb_sdry 
Note: See TracChangeset for help on using the changeset viewer.