Changeset 12327 for NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019
- Timestamp:
- 2020-01-16T10:34:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trcbc.F90
r12256 r12327 7 7 !! 3.6 ! 2015 (T . Lovato) Revision and BDY support 8 8 !! 4.0 ! 2016 (T . Lovato) Include application of sbc and cbc 9 !!----------------------------------------------------------------------10 #if defined key_top11 !!----------------------------------------------------------------------12 !! 'key_top' TOP model13 9 !!---------------------------------------------------------------------- 14 10 !! trc_bc : Apply tracer Boundary Conditions … … 44 40 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET :: sf_trcobc 45 41 #endif 42 43 #if defined key_top 44 !!---------------------------------------------------------------------- 45 !! 'key_top' TOP model 46 !!---------------------------------------------------------------------- 46 47 47 48 !! * Substitutions … … 458 459 !! Dummy module NO 3D passive tracer data 459 460 !!---------------------------------------------------------------------- 460 USE fldread461 INTEGER , SAVE, PUBLIC :: nb_trcobc ! number of tracers with open BC462 INTEGER , SAVE, PUBLIC :: nb_trcsbc ! number of tracers with surface BC463 INTEGER , SAVE, PUBLIC :: nb_trccbc ! number of tracers with coastal BC464 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indobc ! index of tracer with OBC data465 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indsbc ! index of tracer with SBC data466 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indcbc ! index of tracer with CBC data467 REAL , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: rf_trsfac ! multiplicative factor for SBC tracer values468 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_trcsbc ! structure of data input SBC (file informations, fields read)469 REAL , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: rf_trcfac ! multiplicative factor for CBC tracer values470 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_trccbc ! structure of data input CBC (file informations, fields read)471 REAL , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: rf_trofac ! multiplicative factor for OBCtracer values472 #if defined key_agrif473 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_trcobc ! structure of data input OBC (file informations, fields read)474 #else475 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET :: sf_trcobc476 #endif477 461 478 462 CONTAINS 479 480 463 481 464 SUBROUTINE trc_bc_ini( ntrc ) ! Empty routine 482 465 INTEGER,INTENT(IN) :: ntrc ! number of tracers 483 WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', kt466 WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', ntrc 484 467 END SUBROUTINE trc_bc_ini 485 SUBROUTINE trc_bc( kt ) ! Empty routine 486 WRITE(*,*) 'trc_bc: You should not have seen this print! error?', kt 468 SUBROUTINE trc_bc( kt, jit ) ! Empty routine 469 INTEGER,INTENT(IN) :: kt, jit ! number of tracers 470 WRITE(*,*) 'trc_bc: You should not have seen this print! error?', kt, jit 487 471 END SUBROUTINE trc_bc 488 472 #endif
Note: See TracChangeset
for help on using the changeset viewer.