Changeset 1454 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2009-05-19T13:28:19+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traqsr.F90
r1448 r1454 231 231 INTEGER :: ji, jj, jk ! dummy loop indices 232 232 INTEGER :: irgb, ierror ! temporary integer 233 INTEGER :: ioptio, n adv! temporary integer233 INTEGER :: ioptio, nqsr ! temporary integer 234 234 REAL(wp) :: zc0 , zc1 ! temporary scalars 235 235 REAL(wp) :: zc2 , zc3 , zchl ! - - … … 288 288 & ' otherwise, we force the model to run without light penetration' ) 289 289 ENDIF 290 IF( ioptio == 0 .OR. ioptio > 1 ) nadv= 1291 IF( ln_qsr_rgb .AND. nn_chldta == 0 ) n adv= 2292 IF( ln_qsr_rgb .AND. nn_chldta == 1 ) n adv= 3293 IF( ln_qsr_2bd ) n adv= 4294 IF( ln_qsr_bio ) n adv= 5290 IF( ioptio == 0 .OR. ioptio > 1 ) nqsr = 1 291 IF( ln_qsr_rgb .AND. nn_chldta == 0 ) nqsr = 2 292 IF( ln_qsr_rgb .AND. nn_chldta == 1 ) nqsr = 3 293 IF( ln_qsr_2bd ) nqsr = 4 294 IF( ln_qsr_bio ) nqsr = 5 295 295 ! 296 296 IF(lwp) THEN ! Print the choice 297 297 WRITE(numout,*) 298 IF( n adv== 1 ) WRITE(numout,*) ' No light penetration '299 IF( n adv== 2 ) WRITE(numout,*) ' R-G-B light penetration - Constant Chlorophyll'300 IF( n adv== 3 ) WRITE(numout,*) ' R-G-B light penetration - Chl data '301 IF( n adv== 4 ) WRITE(numout,*) ' 2 band light penetration'302 IF( n adv== 5 ) WRITE(numout,*) ' bio-model light penetration'298 IF( nqsr == 1 ) WRITE(numout,*) ' No light penetration ' 299 IF( nqsr == 2 ) WRITE(numout,*) ' R-G-B light penetration - Constant Chlorophyll' 300 IF( nqsr == 3 ) WRITE(numout,*) ' R-G-B light penetration - Chl data ' 301 IF( nqsr == 4 ) WRITE(numout,*) ' 2 band light penetration' 302 IF( nqsr == 5 ) WRITE(numout,*) ' bio-model light penetration' 303 303 ENDIF 304 304 !
Note: See TracChangeset
for help on using the changeset viewer.