Changeset 12209
- Timestamp:
- 2019-12-12T12:29:12+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trcbc.F90
r12202 r12209 458 458 !! Dummy module NO 3D passive tracer data 459 459 !!---------------------------------------------------------------------- 460 CONTAINS 460 USE fldread 461 INTEGER , SAVE, PUBLIC :: nb_trcobc ! number of tracers with open BC 462 INTEGER , SAVE, PUBLIC :: nb_trcsbc ! number of tracers with surface BC 463 INTEGER , SAVE, PUBLIC :: nb_trccbc ! number of tracers with coastal BC 464 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indobc ! index of tracer with OBC data 465 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indsbc ! index of tracer with SBC data 466 INTEGER , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: n_trc_indcbc ! index of tracer with CBC data 467 REAL , SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: rf_trsfac ! multiplicative factor for SBC tracer values 468 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 values 470 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 values 472 #if defined key_agrif 473 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:) :: sf_trcobc ! structure of data input OBC (file informations, fields read) 474 #else 475 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET :: sf_trcobc 476 #endif 477 478 CONTAINS 479 480 461 481 SUBROUTINE trc_bc_ini( ntrc ) ! Empty routine 462 482 INTEGER,INTENT(IN) :: ntrc ! number of tracers
Note: See TracChangeset
for help on using the changeset viewer.