- Timestamp:
- 2015-12-16T10:25:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/TOP_SRC/trcbc.F90
r5215 r6060 1 1 MODULE trcbc 2 2 !!====================================================================== 3 !! *** MODULE trc dta***3 !! *** MODULE trcbc *** 4 4 !! TOP : module for passive tracer boundary conditions 5 5 !!===================================================================== … … 40 40 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_trccbc ! structure of data input CBC (file informations, fields read) 41 41 42 !! * Substitutions43 # include "domzgr_substitute.h90"44 42 !!---------------------------------------------------------------------- 45 43 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 49 47 CONTAINS 50 48 51 SUBROUTINE trc_bc_init( ntrc)49 SUBROUTINE trc_bc_init( ntrc ) 52 50 !!---------------------------------------------------------------------- 53 51 !! *** ROUTINE trc_bc_init *** … … 58 56 !! - allocates passive tracer BC data structure 59 57 !!---------------------------------------------------------------------- 60 !61 INTEGER,INTENT(IN) :: ntrc ! number of tracers62 INTEGER :: jl, jn! dummy loop indices63 INTEGER :: ierr0, ierr1, ierr2, ierr3! temporary integers64 INTEGER :: ios! Local integer output status for namelist read58 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 65 63 CHARACTER(len=100) :: clndta, clntrc 66 ! 64 !! 67 65 CHARACTER(len=100) :: cn_dir 68 66 TYPE(FLD_N), ALLOCATABLE, DIMENSION(:) :: slf_i ! local array of namelist informations on the fields to read … … 242 240 ! 243 241 ENDIF 244 242 ! 245 243 DEALLOCATE( slf_i ) ! deallocate local field structure 246 244 IF( nn_timing == 1 ) CALL timing_stop('trc_bc_init') 247 245 ! 248 246 END SUBROUTINE trc_bc_init 249 247 … … 258 256 !! 259 257 !!---------------------------------------------------------------------- 260 261 ! NEMO262 258 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 267 261 !!--------------------------------------------------------------------- 268 262 ! … … 295 289 ! 296 290 IF( nn_timing == 1 ) CALL timing_stop('trc_bc_read') 297 ! 298 291 ! 299 292 END SUBROUTINE trc_bc_read 293 300 294 #else 301 295 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.