New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r3680 r4147  
    3838   PUBLIC   tra_qsr_init  ! routine called by opa.F90 
    3939 
    40    !                                           !!* Namelist namtra_qsr: penetrative solar radiation 
    41    LOGICAL , PUBLIC ::   ln_traqsr  = .TRUE.    !: light absorption (qsr) flag 
    42    LOGICAL , PUBLIC ::   ln_qsr_rgb = .FALSE.   !: Red-Green-Blue light absorption flag   
    43    LOGICAL , PUBLIC ::   ln_qsr_2bd = .TRUE.    !: 2 band         light absorption flag 
    44    LOGICAL , PUBLIC ::   ln_qsr_bio = .FALSE.   !: bio-model      light absorption flag 
    45    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) 
    4949    
    5050   ! Module variables 
     
    315315      !!---------------------------------------------------------------------- 
    316316      ! 
    317       INTEGER  ::   ji, jj, jk     ! dummy loop indices 
     317      INTEGER  ::   ji, jj, jk                   ! dummy loop indices 
    318318      INTEGER  ::   irgb, ierror, ioptio, nqsr   ! local integer 
     319      INTEGER  ::   ios                          ! Local integer output status for namelist read 
    319320      REAL(wp) ::   zz0, zc0  , zc1, zcoef       ! local scalars 
    320321      REAL(wp) ::   zz1, zc2  , zc3, zchl        !   -      - 
     
    336337      ! 
    337338 
    338       cn_dir = './'       ! directory in which the model is executed 
    339       ! ... 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) 
     341901   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 ) 
     345902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
     346      WRITE ( numond, namtra_qsr ) 
    346347      ! 
    347348      IF(lwp) THEN                ! control print 
Note: See TracChangeset for help on using the changeset viewer.