Changeset 12328 for NEMO/branches/2019
- Timestamp:
- 2020-01-16T10:35:50+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcbc.F90
r12255 r12328 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 … … 465 466 INTEGER, INTENT(IN) :: ntrc ! number of tracers 466 467 INTEGER, INTENT(in) :: Kmm ! time level index 467 WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', kt468 WRITE(*,*) 'trc_bc_ini: You should not have seen this print! error?', ntrc, Kmm 468 469 END SUBROUTINE trc_bc_ini 469 470 SUBROUTINE trc_bc( kt, Kmm, Krhs ) ! Empty routine 470 INTEGER, INTENT(in) :: Kmm, Krhs ! time level indices471 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 472 473 END SUBROUTINE trc_bc 473 474 #endif
Note: See TracChangeset
for help on using the changeset viewer.