Changeset 11609


Ignore:
Timestamp:
2019-09-27T13:38:25+02:00 (12 months ago)
Author:
cetlod
Message:

dev_PISCES_LBC : minor improvments

Location:
NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_top_cfg

    r11600 r11609  
    2020! 
    2121   ln_trcdta     =  .true.  !  Initialisation from data input file (T) or not (F) 
     22   ln_trcbc      =  .true.   !  Enables Boundary conditions 
    2223!                !           !                                           !             !         ! 
    2324!                !    name   !           title of the field              !   units     ! init    ! sbc    ! cbc    !  obc  !  
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_top_cfg

    r11600 r11609  
    1919   ln_c14        =  .false. 
    2020! 
    21    ln_trcdta     =  .true.  !  Initialisation from data input file (T) or not (F) 
     21   ln_trcdta     =  .true.   !  Initialisation from data input file (T) or not (F) 
     22   ln_trcbc      =  .true.   !  Enables Boundary conditions 
    2223!                !           !                                           !             !         ! 
    2324!                !    name   !           title of the field              !   units     ! init    ! sbc    ! cbc    !  obc  !  
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/cfgs/SHARED/namelist_top_ref

    r11222 r11609  
    4141   ln_trcdmp     =  .false.  !  add a damping termn (T) or not (F) 
    4242   ln_trcdmp_clo =  .false.  !  damping term (T) or not (F) on closed seas 
     43   ln_trcbc      =  .false.  !  Surface, Lateral or Open Boundaries conditions 
    4344   ! 
    4445   jp_dia3d      = 0         ! Number of 3D diagnostic variables 
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/PISCES/P4Z/p4zbc.F90

    r11222 r11609  
    262262      END IF 
    263263 
    264       ll_bc    = lltrcbc .OR. ln_hydrofe .OR. ln_ironsed .OR. ln_ironice 
     264      ll_bc    = ( ln_trcbc .AND. lltrcbc ) .OR. ln_hydrofe .OR. ln_ironsed .OR. ln_ironice 
    265265      ll_dust  =  ln_trc_sbc(jpfer)    
    266266      ll_ndepo =  ln_trc_sbc(jpno3) .OR. ln_trc_sbc(jpnh4)    
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/TRP/trctrp.F90

    r11222 r11609  
    6262         ! 
    6363                                CALL trc_sbc    ( kt )      ! surface boundary condition 
    64          IF( lltrcbc .AND. kt /= nit000 )  & 
     64         IF( ln_trcbc .AND. lltrcbc .AND. kt /= nit000 )  & 
    6565                                CALL trc_bc     ( kt )      ! tracers: surface and lateral Boundary Conditions  
    6666         IF( ln_trabbl )        CALL trc_bbl    ( kt )      ! advective (and/or diffusive) bottom boundary layer scheme 
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trc.F90

    r11222 r11609  
    6767   LOGICAL             , PUBLIC ::   ln_top_euler       !: boolean term for euler integration  
    6868   LOGICAL             , PUBLIC ::   ln_trcdta          !: Read inputs data from files 
     69   LOGICAL             , PUBLIC ::   ln_trcbc           !: Enable surface, lateral or open boundaries conditions 
    6970   LOGICAL             , PUBLIC ::   ln_trcdmp          !: internal damping flag 
    7071   LOGICAL             , PUBLIC ::   ln_trcdmp_clo      !: internal damping flag on closed seas 
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trcini.F90

    r11222 r11609  
    175175         ln_trc_obc(jn) =       sn_tracer(jn)%llobc 
    176176      END DO 
     177      ! 
     178      IF( .NOT.ln_trcbc ) THEN 
     179         DO jn = 1, jp_bgc 
     180            ln_trc_sbc(jn) = .FALSE. 
     181            ln_trc_cbc(jn) = .FALSE. 
     182            ln_trc_obc(jn) = .FALSE. 
     183         END DO 
     184      ENDIF 
     185      
    177186      lltrcbc = ( COUNT(ln_trc_sbc) + COUNT(ln_trc_obc) + COUNT(ln_trc_cbc) ) > 0  
    178187      !     
     
    192201         END DO 
    193202      ENDIF 
    194       IF( lwp .AND. lltrcbc ) THEN 
     203      IF( lwp .AND. ln_trcbc .AND. lltrcbc ) THEN 
    195204         WRITE(numout,*) 
    196205         WRITE(numout,*) ' Applying tracer boundary conditions ' 
     
    241250      IF( ln_trcdta )   CALL trc_dta_ini( jptra )      ! set initial tracers values 
    242251      ! 
    243       IF( lltrcbc  )  THEN  
     252      IF( ln_trcbc .AND. lltrcbc )  THEN  
    244253        CALL trc_bc_ini ( jptra  )      ! set tracers Boundary Conditions 
    245254        CALL trc_bc     ( nit000 )      ! tracers: surface and lateral Boundary Conditions 
  • NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trcnam.F90

    r10425 r11609  
    148148      !! 
    149149      NAMELIST/namtrc/jp_bgc, ln_pisces, ln_my_trc, ln_age, ln_cfc11, ln_cfc12, ln_sf6, ln_c14, & 
    150          &            sn_tracer, ln_trcdta, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 
     150         &            sn_tracer, ln_trcdta, ln_trcbc, ln_trcdmp, ln_trcdmp_clo, jp_dia3d, jp_dia2d 
    151151      !!--------------------------------------------------------------------- 
    152152      ! Dummy settings to fill tracers data structure 
     
    222222         WRITE(numout,*) '      Simulating C14   passive tracer              ln_c14        = ', ln_c14 
    223223         WRITE(numout,*) '      Read inputs data from file (y/n)             ln_trcdta     = ', ln_trcdta 
     224         WRITE(numout,*) '      Enable surface, lateral or open boundaries conditions (y/n)  ln_trcbc  = ', ln_trcbc 
    224225         WRITE(numout,*) '      Damping of passive tracer (y/n)              ln_trcdmp     = ', ln_trcdmp 
    225226         WRITE(numout,*) '      Restoring of tracer on closed seas           ln_trcdmp_clo = ', ln_trcdmp_clo 
Note: See TracChangeset for help on using the changeset viewer.