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 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r3875 r3901  
    5757   PUBLIC   tfreez     ! called by sbcice_... modules 
    5858 
    59    !                                          !!* Namelist (nameos) * 
    60    INTEGER , PUBLIC ::   nn_eos   = 0         !: = 0/1/2 type of eq. of state and Brunt-Vaisala frequ. 
    61    REAL(wp), PUBLIC ::   rn_alpha = 2.0e-4_wp !: thermal expension coeff. (linear equation of state) 
    62    REAL(wp), PUBLIC ::   rn_beta  = 7.7e-4_wp !: saline  expension coeff. (linear equation of state) 
     59   !                                  !!* Namelist (nameos) * 
     60   INTEGER , PUBLIC ::   nn_eos       !: = 0/1/2 type of eq. of state and Brunt-Vaisala frequ. 
     61   REAL(wp), PUBLIC ::   rn_alpha     !: thermal expension coeff. (linear equation of state) 
     62   REAL(wp), PUBLIC ::   rn_beta      !: saline  expension coeff. (linear equation of state) 
    6363 
    6464   REAL(wp), PUBLIC ::   ralpbet              !: alpha / beta ratio 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r3875 r3901  
    3737   PUBLIC   tra_adv_init   ! routine called by opa module 
    3838 
    39    !                                        !!* Namelist namtra_adv * 
    40    LOGICAL ::   ln_traadv_cen2   = .TRUE.    ! 2nd order centered scheme flag 
    41    LOGICAL ::   ln_traadv_tvd    = .FALSE.   ! TVD scheme flag 
    42    LOGICAL ::   ln_traadv_muscl  = .FALSE.   ! MUSCL scheme flag 
    43    LOGICAL ::   ln_traadv_muscl2 = .FALSE.   ! MUSCL2 scheme flag 
    44    LOGICAL ::   ln_traadv_ubs    = .FALSE.   ! UBS scheme flag 
    45    LOGICAL ::   ln_traadv_qck    = .FALSE.   ! QUICKEST scheme flag 
    46    LOGICAL ::   ln_traadv_msc_ups= .FALSE.   ! use upstream scheme within muscl 
     39   !                              !!* Namelist namtra_adv * 
     40   LOGICAL ::   ln_traadv_cen2     ! 2nd order centered scheme flag 
     41   LOGICAL ::   ln_traadv_tvd      ! TVD scheme flag 
     42   LOGICAL ::   ln_traadv_muscl    ! MUSCL scheme flag 
     43   LOGICAL ::   ln_traadv_muscl2   ! MUSCL2 scheme flag 
     44   LOGICAL ::   ln_traadv_ubs      ! UBS scheme flag 
     45   LOGICAL ::   ln_traadv_qck      ! QUICKEST scheme flag 
     46   LOGICAL ::   ln_traadv_msc_ups  ! use upstream scheme within muscl 
    4747 
    4848 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r3875 r3901  
    3131   PUBLIC tra_bbc_init     ! routine called by opa.F90 
    3232 
    33    !                                                !!* Namelist nambbc: bottom boundary condition * 
    34    LOGICAL, PUBLIC ::   ln_trabbc     = .FALSE.      !: Geothermal heat flux flag 
    35    INTEGER         ::   nn_geoflx     = 1            !  Geothermal flux (=1:constant flux, =2:read in file ) 
    36    REAL(wp)        ::   rn_geoflx_cst = 86.4e-3_wp   !  Constant value of geothermal heat flux 
     33   !                                 !!* Namelist nambbc: bottom boundary condition * 
     34   LOGICAL, PUBLIC ::   ln_trabbc     !: Geothermal heat flux flag 
     35   INTEGER         ::   nn_geoflx     !  Geothermal flux (=1:constant flux, =2:read in file ) 
     36   REAL(wp)        ::   rn_geoflx_cst !  Constant value of geothermal heat flux 
    3737 
    3838   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   qgh_trd0   ! geothermal heating trend 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r3875 r3901  
    4949   LOGICAL, PUBLIC, PARAMETER ::   lk_trabbl = .TRUE.    !: bottom boundary layer flag 
    5050 
    51    !                                           !!* Namelist nambbl * 
    52    INTEGER , PUBLIC ::   nn_bbl_ldf = 0        !: =1   : diffusive bbl or not (=0) 
    53    INTEGER , PUBLIC ::   nn_bbl_adv = 0        !: =1/2 : advective bbl or not (=0) 
     51   !                                !!* Namelist nambbl * 
     52   INTEGER , PUBLIC ::   nn_bbl_ldf !: =1   : diffusive bbl or not (=0) 
     53   INTEGER , PUBLIC ::   nn_bbl_adv !: =1/2 : advective bbl or not (=0) 
    5454   !                                            !  =1 : advective bbl using the bottom ocean velocity 
    5555   !                                            !  =2 :     -      -  using utr_bbl proportional to grad(rho) 
    56    REAL(wp), PUBLIC ::   rn_ahtbbl  = 1.e3_wp  !: along slope bbl diffusive coefficient [m2/s] 
    57    REAL(wp), PUBLIC ::   rn_gambbl  = 10.0_wp  !: lateral coeff. for bottom boundary layer scheme [s] 
     56   REAL(wp), PUBLIC ::   rn_ahtbbl  !: along slope bbl diffusive coefficient [m2/s] 
     57   REAL(wp), PUBLIC ::   rn_gambbl  !: lateral coeff. for bottom boundary layer scheme [s] 
    5858 
    5959   LOGICAL , PUBLIC ::   l_bbl                  !: flag to compute bbl diffu. flux coef and transport 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r3875 r3901  
    4747   PUBLIC   dtacof_zoom  ! routine called by in both tradmp.F90 and trcdmp.F90 
    4848 
    49    !                                !!* Namelist namtra_dmp : T & S newtonian damping * 
    50    LOGICAL, PUBLIC ::   ln_tradmp = .TRUE.    !: internal damping flag 
    51    INTEGER         ::   nn_hdmp   =   -1      ! = 0/-1/'latitude' for damping over T and S 
    52    INTEGER         ::   nn_zdmp   =    0      ! = 0/1/2 flag for damping in the mixed layer 
    53    REAL(wp)        ::   rn_surf   =   50._wp  ! surface time scale for internal damping        [days] 
    54    REAL(wp)        ::   rn_bot    =  360._wp  ! bottom time scale for internal damping         [days] 
    55    REAL(wp)        ::   rn_dep    =  800._wp  ! depth of transition between rn_surf and rn_bot [meters] 
    56    INTEGER         ::   nn_file   =    2      ! = 1 create a damping.coeff NetCDF file  
     49   !                               !!* Namelist namtra_dmp : T & S newtonian damping * 
     50   LOGICAL, PUBLIC ::   ln_tradmp  = .TRUE.   !: internal damping flag 
     51   INTEGER         ::   nn_hdmp     ! = 0/-1/'latitude' for damping over T and S 
     52   INTEGER         ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer 
     53   REAL(wp)        ::   rn_surf     ! surface time scale for internal damping        [days] 
     54   REAL(wp)        ::   rn_bot      ! bottom time scale for internal damping         [days] 
     55   REAL(wp)        ::   rn_dep      ! depth of transition between rn_surf and rn_bot [meters] 
     56   INTEGER         ::   nn_file     ! = 1 create a damping.coeff NetCDF file  
    5757 
    5858   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   strdmp   !: damping salinity trend (psu/s) 

  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90

    r3875 r3901  
    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 
    … …  
    335335      CALL wrk_alloc( jpi, jpj,      zekb, zekg, zekr        )  
    336336      CALL wrk_alloc( jpi, jpj, jpk, ze0, ze1, ze2, ze3, zea )  
    337       ! 
    338  
    339       cn_dir = './'       ! directory in which the model is executed 
    340       ! ... default values (NB: frequency positive => hours, negative => months) 
    341       !            !     file       ! frequency !  variable  ! time interp !  clim   ! 'yearly' or ! weights  ! rotation   ! 
    342       !            !     name       !  (hours)  !    name    !    (T/F)    !  (T/F)  ! 'monthly'   ! filename ! pairs      ! 
    343       sn_chl = FLD_N( 'chlorophyll' ,    -1     ,  'CHLA'    ,  .true.     , .true.  ,   'yearly'  , ''       , ''         ) 
    344337      ! 
    345338 
Note: See TracChangeset for help on using the changeset viewer.