- Timestamp:
- 2004-11-03T15:49:53+01:00 (20 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/CONFIG/GYRE/EXP00/namelist
r133 r165 156 156 / 157 157 !----------------------------------------------------------------------- 158 ! namalb albedo parameters 159 !----------------------------------------------------------------------- 160 ! cgren correction of the snow or ice albedo to take into account 161 ! albice albedo of melting ice in the arctic and antarctic 162 ! alphd coefficients for linear interpolation used to compute albedo 163 ! between two extremes values (Pyane, 1972) 164 ! alphc " " 165 ! alphdi " " 166 &namalb 167 cgren = 0.06 168 albice = 0.5 169 alphd = 0.80 170 alphc = 0.65 171 alphdi = 0.72 172 / 173 !----------------------------------------------------------------------- 158 174 ! namdom space and time domain (bathymetry, mesh, timestep) 159 175 !----------------------------------------------------------------------- -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist
r133 r165 156 156 / 157 157 !----------------------------------------------------------------------- 158 ! namalb albedo parameters 159 !----------------------------------------------------------------------- 160 ! cgren correction of the snow or ice albedo to take into account 161 ! albice albedo of melting ice in the arctic and antarctic 162 ! alphd coefficients for linear interpolation used to compute albedo 163 ! between two extremes values (Pyane, 1972) 164 ! alphc " " 165 ! alphdi " " 166 &namalb 167 cgren = 0.06 168 albice = 0.5 169 alphd = 0.80 170 alphc = 0.65 171 alphdi = 0.72 172 / 173 !----------------------------------------------------------------------- 158 174 ! namdom space and time domain (bathymetry, mesh, timestep) 159 175 !----------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/SBC/albedo.F90
r152 r165 26 26 ! and in flxblk.F90 in forced 27 27 !! * Module variables 28 INTEGER :: & !: nameos : ocean physical parameters 29 albd_init = 0 !: control flag for initialization 30 28 31 REAL(wp) :: & ! constant values 29 32 zzero = 0.e0 , & … … 101 104 !!--------------------------------------------------------------------- 102 105 106 ! initialization 107 IF( albd_init == 0 ) CALL albedo_init 108 103 109 !------------------------- 104 110 ! Computation of zficeth … … 224 230 225 231 #endif 232 233 SUBROUTINE albedo_init 234 !!---------------------------------------------------------------------- 235 !! *** ROUTINE albedo_init *** 236 !! 237 !! ** Purpose : initializations for the albedo parameters 238 !! 239 !! ** Method : Read the namelist namalb 240 !! 241 !! ** Action : 242 !! 243 !! 244 !! History : 245 !! 9.0 ! 04-11 (C. Talandier) Original code 246 !!---------------------------------------------------------------------- 247 NAMELIST/namalb/ cgren, albice, alphd, alphdi, alphc 248 !!---------------------------------------------------------------------- 249 !! OPA 9.0, LODYC-IPSL (2004) 250 !!---------------------------------------------------------------------- 251 252 ! set the initialization flag to 1 253 albd_init = 1 ! indicate that the initialization has been done 254 255 ! Read Namelist namalb : albedo parameters 256 REWIND( numnam ) 257 READ ( numnam, namalb ) 258 259 ! Control print 260 IF(lwp) THEN 261 WRITE(numout,*) 262 WRITE(numout,*) 'albedo_init : albedo ' 263 WRITE(numout,*) '~~~~~~~~~~~' 264 WRITE(numout,*) ' Namelist namalb : set albedo parameters' 265 WRITE(numout,*) 266 WRITE(numout,*) ' correction of the snow or ice albedo to take into account cgren = ', cgren 267 WRITE(numout,*) ' albedo of melting ice in the arctic and antarctic albice = ', albice 268 WRITE(numout,*) ' coefficients for linear alphd = ', alphd 269 WRITE(numout,*) ' interpolation used to compute albedo alphdi = ', alphdi 270 WRITE(numout,*) ' between two extremes values (Pyane, 1972) alphc = ', alphc 271 WRITE(numout,*) 272 ENDIF 273 274 END SUBROUTINE albedo_init 226 275 !!====================================================================== 227 276 END MODULE albedo
Note: See TracChangeset
for help on using the changeset viewer.