- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3680 r4147 38 38 PUBLIC tra_qsr_init ! routine called by opa.F90 39 39 40 ! 41 LOGICAL , PUBLIC :: ln_traqsr = .TRUE.!: light absorption (qsr) flag42 LOGICAL , PUBLIC :: ln_qsr_rgb = .FALSE.!: Red-Green-Blue light absorption flag43 LOGICAL , PUBLIC :: ln_qsr_2bd = .TRUE.!: 2 band light absorption flag44 LOGICAL , PUBLIC :: ln_qsr_bio = .FALSE.!: bio-model light absorption flag45 INTEGER , PUBLIC :: nn_chldta = 0!: use Chlorophyll data (=1) or not (=0)46 REAL(wp), PUBLIC :: rn_abs = 0.58_wp!: fraction absorbed in the very near surface (RGB & 2 bands)47 REAL(wp), PUBLIC :: rn_si0 = 0.35_wp!: very near surface depth of extinction (RGB & 2 bands)48 REAL(wp), PUBLIC :: rn_si1 = 23.0_wp!: deepest depth of extinction (water type I) (2 bands)40 ! !!* Namelist namtra_qsr: penetrative solar radiation 41 LOGICAL , PUBLIC :: ln_traqsr !: light absorption (qsr) flag 42 LOGICAL , PUBLIC :: ln_qsr_rgb !: Red-Green-Blue light absorption flag 43 LOGICAL , PUBLIC :: ln_qsr_2bd !: 2 band light absorption flag 44 LOGICAL , PUBLIC :: ln_qsr_bio !: bio-model light absorption flag 45 INTEGER , PUBLIC :: nn_chldta !: use Chlorophyll data (=1) or not (=0) 46 REAL(wp), PUBLIC :: rn_abs !: fraction absorbed in the very near surface (RGB & 2 bands) 47 REAL(wp), PUBLIC :: rn_si0 !: very near surface depth of extinction (RGB & 2 bands) 48 REAL(wp), PUBLIC :: rn_si1 !: deepest depth of extinction (water type I) (2 bands) 49 49 50 50 ! Module variables … … 315 315 !!---------------------------------------------------------------------- 316 316 ! 317 INTEGER :: ji, jj, jk ! dummy loop indices317 INTEGER :: ji, jj, jk ! dummy loop indices 318 318 INTEGER :: irgb, ierror, ioptio, nqsr ! local integer 319 INTEGER :: ios ! Local integer output status for namelist read 319 320 REAL(wp) :: zz0, zc0 , zc1, zcoef ! local scalars 320 321 REAL(wp) :: zz1, zc2 , zc3, zchl ! - - … … 336 337 ! 337 338 338 cn_dir = './' ! directory in which the model is executed339 ! ... default values (NB: frequency positive => hours, negative => months)340 ! ! file ! frequency ! variable ! time interp ! clim ! 'yearly' or ! weights ! rotation ! 341 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs ! 342 sn_chl = FLD_N( 'chlorophyll' , -1 , 'CHLA' , .true. , .true. , 'yearly' , '' , '' )343 !344 REWIND( numnam ) ! Read Namelist namtra_qsr : ratio and length of penetration 345 READ ( numnam, namtra_qsr )339 REWIND( numnam_ref ) ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration 340 READ ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 341 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwp ) 342 343 REWIND( numnam_cfg ) ! Namelist namtra_qsr in configuration namelist : Ratio and length of penetration 344 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 345 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 346 WRITE ( numond, namtra_qsr ) 346 347 ! 347 348 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.