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/TOP_SRC/PISCES/P4Z/p4zopt.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/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r3475 r4147  
    3232   !! * Shared module variables 
    3333 
    34    LOGICAL  :: ln_varpar = .FALSE.    !: boolean for variable PAR fraction 
    35    REAL(wp) :: parlux    = 0.43_wp    !: Fraction of shortwave as PAR 
     34   LOGICAL  :: ln_varpar   !: boolean for variable PAR fraction 
     35   REAL(wp) :: parlux      !: Fraction of shortwave as PAR 
    3636   REAL(wp) :: xparsw                 !: parlux/3 
    3737 
    … …  
    318318      INTEGER :: numpar 
    319319      INTEGER :: ierr 
     320      INTEGER :: ios                 ! Local integer output status for namelist read 
    320321      REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records 
    321322      ! 
    … …  
    329330      IF( nn_timing == 1 )  CALL timing_start('p4z_opt_init') 
    330331 
    331       cn_dir  = './'            ! directory in which the model is executed 
    332       ! ... default values (NB: frequency positive => hours, negative => months) 
    333       !                  !   file       ! frequency !  variable   ! time intep !  clim   ! 'yearly' or ! weights  ! rotation   ! 
    334       !                  !   name       !  (hours)  !   name      !   (T/F)    !  (T/F)  !  'monthly'  ! filename ! pairs      ! 
    335       sn_par     = FLD_N( 'par_fraction',    24     ,  'fr_par'     ,  .true.    , .true.  ,   'yearly'  , ''       , ''         ) 
    336  
    337       REWIND( numnatp )                     ! read numnatp 
    338       READ  ( numnatp, nampisopt ) 
     332      REWIND( numnatp_ref )              ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR 
     333      READ  ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 
     334901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist', lwp ) 
     335 
     336      REWIND( numnatp_cfg )              ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR 
     337      READ  ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 
     338902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist', lwp ) 
     339      WRITE ( numonp, nampisopt ) 
    339340 
    340341      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.