Changeset 9531


Ignore:
Timestamp:
2018-04-30T16:59:01+02:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: rename traadv_mle.F90 & namtra_adv_mle as tramle.F90 & namtra_mle, resp.

Location:
branches/2017/dev_merge_2017/NEMOGCM
Files:
12 edited
1 moved

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/AGRIF_NORDIC/EXP00/1_namelist_cfg

    r9527 r9531  
    180180!!                        Tracer (T & S) namelists                    !! 
    181181!!                                                                    !! 
    182 !!   nameos           equation of state                                 (default: NO selection) 
    183 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    184 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    185 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    186 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    187 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     182!!   nameos        equation of state                                    (default: NO selection) 
     183!!   namtra_adv    advection scheme                                     (default: NO selection) 
     184!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     185!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     186!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     187!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    188188!!====================================================================== 
    189189! 
     
    200200/ 
    201201!----------------------------------------------------------------------- 
    202 &namtra_adv_mle !   mixed layer eddy parametrisation (Fox-Kemper)       (default: OFF) 
     202&namtra_mle    !   mixed layer eddy parametrisation (Fox-Kemper)        (default: OFF) 
    203203!----------------------------------------------------------------------- 
    204204   ln_mle      = .true.   ! (T) use the Mixed Layer Eddy (MLE) parameterisation 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/AGRIF_NORDIC/EXP00/2_namelist_cfg

    r9527 r9531  
    180180!!                        Tracer (T & S) namelists                    !! 
    181181!!                                                                    !! 
    182 !!   nameos           equation of state                                 (default: NO selection) 
    183 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    184 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    185 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    186 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    187 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     182!!   nameos        equation of state                                    (default: NO selection) 
     183!!   namtra_adv    advection scheme                                     (default: NO selection) 
     184!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     185!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     186!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     187!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    188188!!====================================================================== 
    189189! 
     
    200200/ 
    201201!----------------------------------------------------------------------- 
    202 &namtra_adv_mle !   mixed layer eddy parametrisation (Fox-Kemper)       (default: OFF) 
     202&namtra_mle    !   mixed layer eddy parametrisation (Fox-Kemper)        (default: OFF) 
    203203!----------------------------------------------------------------------- 
    204204   ln_mle      = .true.   ! (T) use the Mixed Layer Eddy (MLE) parameterisation 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/AGRIF_NORDIC/EXP00/namelist_cfg

    r9527 r9531  
    216216!!                        Tracer (T & S) namelists                    !! 
    217217!!                                                                    !! 
    218 !!   nameos           equation of state                                 (default: NO selection) 
    219 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    220 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    221 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    222 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    223 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     218!!   nameos        equation of state                                    (default: NO selection) 
     219!!   namtra_adv    advection scheme                                     (default: NO selection) 
     220!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     221!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     222!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     223!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    224224!!====================================================================== 
    225225! 
     
    237237/ 
    238238!----------------------------------------------------------------------- 
    239 &namtra_adv_mle !   mixed layer eddy parametrisation (Fox-Kemper)       (default: OFF) 
     239&namtra_mle    !   mixed layer eddy parametrisation (Fox-Kemper)        (default: OFF) 
    240240!----------------------------------------------------------------------- 
    241241   ln_mle      = .true.   ! (T) use the Mixed Layer Eddy (MLE) parameterisation 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/AMM12/EXP00/namelist_cfg

    r9527 r9531  
    235235!!                        Tracer (T & S) namelists                    !! 
    236236!!                                                                    !! 
    237 !!   nameos           equation of state                                 (default: NO selection) 
    238 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    239 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    240 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    241 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    242 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     237!!   nameos        equation of state                                    (default: NO selection) 
     238!!   namtra_adv    advection scheme                                     (default: NO selection) 
     239!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     240!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     241!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     242!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    243243!!====================================================================== 
    244244! 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist_cfg

    r9528 r9531  
    116116!!                        Tracer (T & S) namelists                    !! 
    117117!!                                                                    !! 
    118 !!   nameos           equation of state                                 (default: NO selection) 
    119 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    120 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    121 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    122 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    123 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     118!!   nameos        equation of state                                    (default: NO selection) 
     119!!   namtra_adv    advection scheme                                     (default: NO selection) 
     120!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     121!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     122!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     123!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    124124!!====================================================================== 
    125125! 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/GYRE_PISCES/EXP00/namelist_cfg

    r9528 r9531  
    117117!!                        Tracer (T & S) namelists                    !! 
    118118!!                                                                    !! 
    119 !!   nameos           equation of state                                 (default: NO selection) 
    120 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    121 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    122 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    123 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    124 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     119!!   nameos        equation of state                                    (default: NO selection) 
     120!!   namtra_adv    advection scheme                                     (default: NO selection) 
     121!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     122!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     123!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     124!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    125125!!====================================================================== 
    126126! 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/ORCA2_LIM3_PISCES/EXP00/namelist_cfg

    r9527 r9531  
    305305!!                        Tracer (T & S) namelists                    !! 
    306306!!                                                                    !! 
    307 !!   nameos           equation of state                                 (default: NO selection) 
    308 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    309 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    310 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    311 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    312 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     307!!   nameos        equation of state                                    (default: NO selection) 
     308!!   namtra_adv    advection scheme                                     (default: NO selection) 
     309!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     310!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     311!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     312!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    313313!!====================================================================== 
    314314! 
     
    338338/ 
    339339!----------------------------------------------------------------------- 
    340 &namtra_adv_mle !   mixed layer eddy parametrisation (Fox-Kemper)       (default: OFF) 
     340&namtra_mle    !   mixed layer eddy parametrisation (Fox-Kemper)        (default: OFF) 
    341341!----------------------------------------------------------------------- 
    342342   ln_mle      = .true.   ! (T) use the Mixed Layer Eddy (MLE) parameterisation 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/EXP00/namelist_cfg

    r9527 r9531  
    120120!!                        Tracer (T & S) namelists                    !! 
    121121!!                                                                    !! 
    122 !!   nameos           equation of state                                 (default: NO selection) 
    123 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    124 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    125 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    126 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    127 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     122!!   nameos        equation of state                                    (default: NO selection) 
     123!!   namtra_adv    advection scheme                                     (default: NO selection) 
     124!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     125!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     126!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     127!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    128128!!====================================================================== 
    129129! 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/EXP00/namelist_cfg

    r9527 r9531  
    165165!!                        Tracer (T & S) namelists                    !! 
    166166!!                                                                    !! 
    167 !!   nameos           equation of state                                 (default: NO selection) 
    168 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    169 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    170 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    171 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    172 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     167!!   nameos        equation of state                                    (default: NO selection) 
     168!!   namtra_adv    advection scheme                                     (default: NO selection) 
     169!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     170!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     171!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     172!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    173173!!====================================================================== 
    174174! 
  • branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/VORTEX/EXP00/namelist_cfg

    r9527 r9531  
    121121!!                        Tracer (T-S) namelists                      !! 
    122122!!                                                                    !! 
    123 !!   nameos           equation of state                                 (default: NO selection) 
    124 !!   namtra_adv       advection scheme                                  (default: NO selection) 
    125 !!   namtra_ldf       lateral diffusion scheme                          (default: NO selection) 
    126 !!   namtra_adv_mle   mixed layer eddy param. (Fox-Kemper param.)       (default: OFF) 
    127 !!   namtra_eiv       eddy induced velocity param.                      (default: OFF) 
    128 !!   namtra_dmp       T & S newtonian damping                           (default: OFF) 
     123!!   nameos        equation of state                                    (default: NO selection) 
     124!!   namtra_adv    advection scheme                                     (default: NO selection) 
     125!!   namtra_ldf    lateral diffusion scheme                             (default: NO selection) 
     126!!   namtra_mle    mixed layer eddy param. (Fox-Kemper param.)          (default: OFF) 
     127!!   namtra_eiv    eddy induced velocity param.                         (default: OFF) 
     128!!   namtra_dmp    T & S newtonian damping                              (default: OFF) 
    129129!!====================================================================== 
    130130! 
     
    160160&namtra_ldf    !   lateral diffusion scheme for tracers                 (default: NO selection) 
    161161!----------------------------------------------------------------------- 
    162   !                       !  Operator type: 
    163162   ln_traldf_OFF   =  .true.  !  No explicit diffusion 
    164163   ln_traldf_lap   =  .false.  !    laplacian operator 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r9526 r9531  
    2121   USE sbcwave        ! wave module 
    2222   USE sbc_oce        ! surface boundary condition: ocean 
    23    USE traadv_cen     ! centered scheme           (tra_adv_cen  routine) 
    24    USE traadv_fct     ! FCT      scheme           (tra_adv_fct  routine) 
    25    USE traadv_mus     ! MUSCL    scheme           (tra_adv_mus  routine) 
    26    USE traadv_ubs     ! UBS      scheme           (tra_adv_ubs  routine) 
    27    USE traadv_qck     ! QUICKEST scheme           (tra_adv_qck  routine) 
    28    USE traadv_mle     ! ML eddy induced velocity  (tra_adv_mle  routine) 
    29    USE ldftra         ! lateral diffusion: eddy diffusivity & EIV coeff. 
     23   USE traadv_cen     ! centered scheme            (tra_adv_cen  routine) 
     24   USE traadv_fct     ! FCT      scheme            (tra_adv_fct  routine) 
     25   USE traadv_mus     ! MUSCL    scheme            (tra_adv_mus  routine) 
     26   USE traadv_ubs     ! UBS      scheme            (tra_adv_ubs  routine) 
     27   USE traadv_qck     ! QUICKEST scheme            (tra_adv_qck  routine) 
     28   USE tramle         ! Mixed Layer Eddy transport (tra_mle_trp  routine) 
     29   USE ldftra         ! Eddy Induced transport     (ldf_eiv_trp  routine) 
    3030   USE ldfslp         ! Lateral diffusion: slopes of neutral surfaces 
    3131   USE trd_oce        ! trends: ocean variables 
     
    9393      ! 
    9494      !                                          ! set time step 
    95       IF( neuler == 0 .AND. kt == nit000 ) THEN   ;   r2dt =        rdt   ! at nit000             (Euler) 
    96       ELSEIF( kt <= nit000 + 1 )           THEN   ;   r2dt = 2._wp* rdt   ! at nit000 or nit000+1 (Leapfrog) 
     95      IF( neuler == 0 .AND. kt == nit000 ) THEN   ;   r2dt =         rdt   ! at nit000             (Euler) 
     96      ELSEIF( kt <= nit000 + 1 )           THEN   ;   r2dt = 2._wp * rdt   ! at nit000 or nit000+1 (Leapfrog) 
    9797      ENDIF 
    9898      ! 
     
    127127         &              CALL ldf_eiv_trp( kt, nit000, zun, zvn, zwn, 'TRA' )   ! add the eiv transport (if necessary) 
    128128      ! 
    129       IF( ln_mle    )   CALL tra_adv_mle( kt, nit000, zun, zvn, zwn, 'TRA' )   ! add the mle transport (if necessary) 
     129      IF( ln_mle    )   CALL tra_mle_trp( kt, nit000, zun, zvn, zwn, 'TRA' )   ! add the mle transport (if necessary) 
    130130      ! 
    131131      CALL iom_put( "uocetr_eff", zun )                                        ! output effective transport       
     
    267267      ENDIF 
    268268      ! 
    269       CALL tra_adv_mle_init            !== initialisation of the Mixed Layer Eddy parametrisation (MLE)  ==! 
     269      CALL tra_mle_init            !== initialisation of the Mixed Layer Eddy parametrisation (MLE)  ==! 
    270270      ! 
    271271   END SUBROUTINE tra_adv_init 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/tramle.F90

    r9525 r9531  
    1 MODULE traadv_mle 
     1MODULE tramle 
    22   !!====================================================================== 
    3    !!                    ***  MODULE  traadv_mle  *** 
     3   !!                    ***  MODULE  tramle  *** 
    44   !! Ocean tracers: Mixed Layer Eddy induced transport 
    55   !!====================================================================== 
     
    88 
    99   !!---------------------------------------------------------------------- 
    10    !!   tra_adv_mle      : update the effective transport with the Mixed Layer Eddy induced transport 
    11    !!   tra_adv_mle_init : initialisation of the Mixed Layer Eddy induced transport computation 
     10   !!   tra_mle_trp   : update the effective transport with the Mixed Layer Eddy induced transport 
     11   !!   tra_mle_init : initialisation of the Mixed Layer Eddy induced transport computation 
    1212   !!---------------------------------------------------------------------- 
    1313   USE oce            ! ocean dynamics and tracers variables 
     
    2424   PRIVATE 
    2525 
    26    PUBLIC   tra_adv_mle        ! routine called in traadv.F90 
    27    PUBLIC   tra_adv_mle_init   ! routine called in traadv.F90 
    28  
    29    !                                       !!* namelist namtra_adv_mle * 
    30    LOGICAL, PUBLIC ::   ln_mle              ! flag to activate the Mixed Layer Eddy (MLE) parameterisation 
    31    INTEGER         ::   nn_mle              ! MLE type: =0 standard Fox-Kemper ; =1 new formulation 
    32    INTEGER         ::   nn_mld_uv           ! space interpolation of MLD at u- & v-pts (0=min,1=averaged,2=max) 
    33    INTEGER         ::   nn_conv             ! =1 no MLE in case of convection ; =0 always MLE 
    34    REAL(wp)        ::   rn_ce               ! MLE coefficient 
     26   PUBLIC   tra_mle_trp        ! routine called in traadv.F90 
     27   PUBLIC   tra_mle_init   ! routine called in traadv.F90 
     28 
     29   !                                    !!* namelist namtra_mle * 
     30   LOGICAL, PUBLIC ::   ln_mle           !: flag to activate the Mixed Layer Eddy (MLE) parameterisation 
     31   INTEGER         ::      nn_mle           ! MLE type: =0 standard Fox-Kemper ; =1 new formulation 
     32   INTEGER         ::      nn_mld_uv        ! space interpolation of MLD at u- & v-pts (0=min,1=averaged,2=max) 
     33   INTEGER         ::      nn_conv          ! =1 no MLE in case of convection ; =0 always MLE 
     34   REAL(wp)        ::      rn_ce            ! MLE coefficient 
    3535   !                                        ! parameters used in nn_mle = 0 case 
    36    REAL(wp)        ::   rn_lf                  ! typical scale of mixed layer front 
    37    REAL(wp)        ::   rn_time                ! time scale for mixing momentum across the mixed layer 
     36   REAL(wp)        ::      rn_lf               ! typical scale of mixed layer front 
     37   REAL(wp)        ::      rn_time             ! time scale for mixing momentum across the mixed layer 
    3838   !                                        ! parameters used in nn_mle = 1 case 
    39    REAL(wp)        ::   rn_lat                 ! reference latitude for a 5 km scale of ML front 
    40    REAL(wp)        ::   rn_rho_c_mle           ! Density criterion for definition of MLD used by FK 
     39   REAL(wp)        ::      rn_lat              ! reference latitude for a 5 km scale of ML front 
     40   REAL(wp)        ::      rn_rho_c_mle        ! Density criterion for definition of MLD used by FK 
    4141 
    4242   REAL(wp) ::   r5_21 = 5.e0 / 21.e0   ! factor used in mle streamfunction computation 
     
    5656CONTAINS 
    5757 
    58    SUBROUTINE tra_adv_mle( kt, kit000, pu, pv, pw, cdtype ) 
    59       !!---------------------------------------------------------------------- 
    60       !!                  ***  ROUTINE adv_mle  *** 
     58   SUBROUTINE tra_mle_trp( kt, kit000, pu, pv, pw, cdtype ) 
     59      !!---------------------------------------------------------------------- 
     60      !!                  ***  ROUTINE tra_mle_trp  *** 
    6161      !! 
    6262      !! ** Purpose :   Add to the transport the Mixed Layer Eddy induced transport 
     
    246246      ENDIF 
    247247      ! 
    248    END SUBROUTINE tra_adv_mle 
    249  
    250  
    251    SUBROUTINE tra_adv_mle_init 
     248   END SUBROUTINE tra_mle_trp 
     249 
     250 
     251   SUBROUTINE tra_mle_init 
    252252      !!--------------------------------------------------------------------- 
    253       !!                  ***  ROUTINE tra_adv_mle_init  *** 
     253      !!                  ***  ROUTINE tra_mle_init  *** 
    254254      !! 
    255255      !! ** Purpose :   Control the consistency between namelist options for 
     
    261261      REAL(wp) ::   z1_t2, zfu, zfv                                !    -         - 
    262262      ! 
    263       NAMELIST/namtra_adv_mle/ ln_mle , nn_mle, rn_ce, rn_lf, rn_time, rn_lat, nn_mld_uv, nn_conv, rn_rho_c_mle 
    264       !!---------------------------------------------------------------------- 
    265  
    266       REWIND( numnam_ref )              ! Namelist namtra_adv_mle in reference namelist : Tracer advection scheme 
    267       READ  ( numnam_ref, namtra_adv_mle, IOSTAT = ios, ERR = 901) 
    268 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_adv_mle in reference namelist', lwp ) 
    269  
    270       REWIND( numnam_cfg )              ! Namelist namtra_adv_mle in configuration namelist : Tracer advection scheme 
    271       READ  ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 
    272 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 
    273       IF(lwm) WRITE ( numond, namtra_adv_mle ) 
     263      NAMELIST/namtra_mle/ ln_mle , nn_mle, rn_ce, rn_lf, rn_time, rn_lat, nn_mld_uv, nn_conv, rn_rho_c_mle 
     264      !!---------------------------------------------------------------------- 
     265 
     266      REWIND( numnam_ref )              ! Namelist namtra_mle in reference namelist : Tracer advection scheme 
     267      READ  ( numnam_ref, namtra_mle, IOSTAT = ios, ERR = 901) 
     268901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtra_mle in reference namelist', lwp ) 
     269 
     270      REWIND( numnam_cfg )              ! Namelist namtra_mle in configuration namelist : Tracer advection scheme 
     271      READ  ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 
     272902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtra_mle in configuration namelist', lwp ) 
     273      IF(lwm) WRITE ( numond, namtra_mle ) 
    274274 
    275275      IF(lwp) THEN                     ! Namelist print 
    276276         WRITE(numout,*) 
    277          WRITE(numout,*) 'tra_adv_mle_init : mixed layer eddy (MLE) advection acting on tracers' 
    278          WRITE(numout,*) '~~~~~~~~~~~~~~~~' 
    279          WRITE(numout,*) '   Namelist namtra_adv_mle : mixed layer eddy advection on tracers' 
     277         WRITE(numout,*) 'tra_mle_init : mixed layer eddy (MLE) advection acting on tracers' 
     278         WRITE(numout,*) '~~~~~~~~~~~~~' 
     279         WRITE(numout,*) '   Namelist namtra_mle : mixed layer eddy advection applied on tracers' 
    280280         WRITE(numout,*) '      use mixed layer eddy (MLE, i.e. Fox-Kemper param) (T/F)      ln_mle       = ', ln_mle 
    281281         WRITE(numout,*) '         MLE type: =0 standard Fox-Kemper ; =1 new formulation        nn_mle    = ', nn_mle 
     
    335335      ENDIF 
    336336      ! 
    337    END SUBROUTINE tra_adv_mle_init 
     337   END SUBROUTINE tra_mle_init 
    338338 
    339339   !!============================================================================== 
    340 END MODULE traadv_mle 
     340END MODULE tramle 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r9526 r9531  
    2525   USE traadv_ubs     ! UBS      scheme           (tra_adv_ubs  routine) 
    2626   USE traadv_qck     ! QUICKEST scheme           (tra_adv_qck  routine) 
    27    USE traadv_mle     ! ML eddy induced velocity (tra_adv_mle  routine) 
     27   USE tramle         ! ML eddy induced transport (tra_adv_mle  routine) 
    2828   USE ldftra         ! lateral diffusion: eddy diffusivity & EIV coeff. 
    2929   USE ldfslp         ! Lateral diffusion: slopes of neutral surfaces 
     
    116116            &              CALL ldf_eiv_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' )  ! add the eiv transport 
    117117         ! 
    118          IF( ln_mle    )   CALL tra_adv_mle( kt, nittrc000, zun, zvn, zwn, 'TRC' )  ! add the mle transport 
     118         IF( ln_mle    )   CALL tra_mle_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' )  ! add the mle transport 
    119119         ! 
    120120      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.