- Timestamp:
- 2017-09-15T20:07:33+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icealb.F90
r8517 r8531 34 34 REAL(wp) , PARAMETER :: r1_c2 = 1. / rc2 35 35 ! 36 ! ** albedo namelist (nam ice_alb)36 ! ** albedo namelist (namalb) 37 37 INTEGER :: nn_ice_alb ! type of albedo scheme: 0: Shine & Henderson-Sellers (JGR 1985) 38 38 ! ! 1: "home made" based on Brandt et al. (JClim 2005) … … 310 310 !! ** Purpose : initializations for the albedo parameters 311 311 !! 312 !! ** Method : Read the namelist nam ice_alb312 !! ** Method : Read the namelist namalb 313 313 !!---------------------------------------------------------------------- 314 314 INTEGER :: ios ! Local integer output status for namelist read 315 315 !! 316 NAMELIST/nam ice_alb/ nn_ice_alb, rn_alb_sdry, rn_alb_smlt, rn_alb_idry, rn_alb_imlt, rn_alb_dpnd317 !!---------------------------------------------------------------------- 318 ! 319 REWIND( numnam_ice_ref ) ! Namelist nam ice_alb in reference namelist : Albedo parameters320 READ ( numnam_ice_ref, nam ice_alb, IOSTAT = ios, ERR = 901)321 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ice_alb in reference namelist', lwp )322 323 REWIND( numnam_ice_cfg ) ! Namelist nam ice_alb in configuration namelist : Albedo parameters324 READ ( numnam_ice_cfg, nam ice_alb, IOSTAT = ios, ERR = 902 )325 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ice_alb in configuration namelist', lwp )326 IF(lwm) WRITE ( numoni, nam ice_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) 321 901 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 ) 325 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namalb in configuration namelist', lwp ) 326 IF(lwm) WRITE ( numoni, namalb ) 327 327 ! 328 328 IF(lwp) THEN ! Control print … … 330 330 WRITE(numout,*) 'ice_alb_init: set albedo parameters' 331 331 WRITE(numout,*) '~~~~~~~~~~~~' 332 WRITE(numout,*) ' Namelist nam ice_alb : albedo'332 WRITE(numout,*) ' Namelist namalb:' 333 333 WRITE(numout,*) ' choose the albedo parameterization nn_ice_alb = ', nn_ice_alb 334 334 WRITE(numout,*) ' albedo of dry snow rn_alb_sdry = ', rn_alb_sdry
Note: See TracChangeset
for help on using the changeset viewer.