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 6060 for branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/trcbc.F90 – NEMO

Ignore:
Timestamp:
2015-12-16T10:25:22+01:00 (8 years ago)
Author:
timgraham
Message:

Merged dev_r5836_noc2_VVL_BY_DEFAULT into branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

    r5215 r6060  
    11MODULE trcbc 
    22   !!====================================================================== 
    3    !!                     ***  MODULE  trcdta  *** 
     3   !!                     ***  MODULE  trcbc  *** 
    44   !! TOP :  module for passive tracer boundary conditions 
    55   !!===================================================================== 
     
    4040   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:)  :: sf_trccbc   ! structure of data input CBC (file informations, fields read) 
    4141 
    42    !! * Substitutions 
    43 #  include "domzgr_substitute.h90" 
    4442   !!---------------------------------------------------------------------- 
    4543   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     
    4947CONTAINS 
    5048 
    51    SUBROUTINE trc_bc_init(ntrc) 
     49   SUBROUTINE trc_bc_init( ntrc ) 
    5250      !!---------------------------------------------------------------------- 
    5351      !!                   ***  ROUTINE trc_bc_init  *** 
     
    5856      !!              - allocates passive tracer BC data structure  
    5957      !!---------------------------------------------------------------------- 
    60       ! 
    61       INTEGER,INTENT(IN) :: ntrc                           ! number of tracers 
    62       INTEGER            :: jl, jn                         ! dummy loop indices 
    63       INTEGER            :: ierr0, ierr1, ierr2, ierr3     ! temporary integers 
    64       INTEGER            ::  ios                           ! Local integer output status for namelist read 
     58      INTEGER,INTENT(IN) ::   ntrc   ! number of tracers 
     59      ! 
     60      INTEGER ::  jl, jn                       ! dummy loop indices 
     61      INTEGER ::  ierr0, ierr1, ierr2, ierr3   ! temporary integers 
     62      INTEGER ::  ios                         ! Local integer output status for namelist read 
    6563      CHARACTER(len=100) :: clndta, clntrc 
    66       ! 
     64      !! 
    6765      CHARACTER(len=100) :: cn_dir 
    6866      TYPE(FLD_N), ALLOCATABLE, DIMENSION(:) :: slf_i  ! local array of namelist informations on the fields to read 
     
    242240         ! 
    243241      ENDIF 
    244   
     242      ! 
    245243      DEALLOCATE( slf_i )          ! deallocate local field structure 
    246244      IF( nn_timing == 1 )  CALL timing_stop('trc_bc_init') 
    247  
     245      ! 
    248246   END SUBROUTINE trc_bc_init 
    249247 
     
    258256      !!               
    259257      !!---------------------------------------------------------------------- 
    260     
    261       ! NEMO 
    262258      USE fldread 
    263        
    264       !! * Arguments 
    265       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    266  
     259      ! 
     260      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    267261      !!--------------------------------------------------------------------- 
    268262      ! 
     
    295289      ! 
    296290      IF( nn_timing == 1 )  CALL timing_stop('trc_bc_read') 
    297       !        
    298  
     291      ! 
    299292   END SUBROUTINE trc_bc_read 
     293 
    300294#else 
    301295   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.