Changeset 12327


Ignore:
Timestamp:
2020-01-16T10:34:13+01:00 (12 days ago)
Author:
cetlod
Message:

dev_r12072_MERGE_OPTION2_2019: minor fix to avoid compilation error when using an OCE+TOP configuration without key_top enabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trcbc.F90

    r12256 r12327  
    77   !!            3.6 !  2015 (T . Lovato) Revision and BDY support 
    88   !!            4.0 !  2016 (T . Lovato) Include application of sbc and cbc 
    9    !!---------------------------------------------------------------------- 
    10 #if defined key_top 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_top'                                                TOP model  
    139   !!---------------------------------------------------------------------- 
    1410   !!   trc_bc       :  Apply tracer Boundary Conditions 
     
    4440   TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET  :: sf_trcobc 
    4541#endif 
     42 
     43#if defined key_top 
     44   !!---------------------------------------------------------------------- 
     45   !!   'key_top'                                                TOP model  
     46   !!---------------------------------------------------------------------- 
    4647 
    4748   !! * Substitutions 
     
    458459   !!   Dummy module                              NO 3D passive tracer data 
    459460   !!---------------------------------------------------------------------- 
    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 
    477461    
    478462 CONTAINS 
    479   
    480463 
    481464   SUBROUTINE trc_bc_ini( ntrc )        ! Empty routine 
    482465      INTEGER,INTENT(IN) :: ntrc                           ! number of tracers 
    483       WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', kt 
     466      WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', ntrc 
    484467   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 
    487471   END SUBROUTINE trc_bc 
    488472#endif 
Note: See TracChangeset for help on using the changeset viewer.