Changeset 12328


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

dev_r11943_MERGE_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_r11943_MERGE_2019/src/TOP/trcbc.F90

    r12255 r12328  
    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 
     
    465466      INTEGER, INTENT(IN) :: ntrc                           ! number of tracers 
    466467      INTEGER, INTENT(in) :: Kmm                            ! time level index 
    467       WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', kt 
     468      WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', ntrc, Kmm 
    468469   END SUBROUTINE trc_bc_ini 
    469470   SUBROUTINE trc_bc( kt, Kmm, Krhs )        ! Empty routine 
    470       INTEGER, INTENT(in) :: Kmm, Krhs ! time level indices 
    471       WRITE(*,*) 'trc_bc: You should not have seen this print! error?', kt 
     471      INTEGER, INTENT(in) :: kt, Kmm, Krhs ! time level indices 
     472      WRITE(*,*) 'trc_bc: You should not have seen this print! error?', kt, Kmm, Krhs  
    472473   END SUBROUTINE trc_bc 
    473474#endif 
Note: See TracChangeset for help on using the changeset viewer.