Changeset 4328 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA
- Timestamp:
- 2013-12-06T11:25:13+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r4230 r4328 34 34 USE trdtra ! ocean active tracers trends 35 35 USE phycst 36 USE obc_oce37 USE obctra ! open boundary condition (obc_tra routine)38 36 USE bdy_oce 39 37 USE bdytra ! open boundary condition (bdy_tra routine) … … 81 79 !! - Apply lateral boundary conditions on (ta,sa) 82 80 !! at the local domain boundaries through lbc_lnk call, 83 !! at the one-way open boundaries (lk_ obc=T),81 !! at the one-way open boundaries (lk_bdy=T), 84 82 !! at the AGRIF zoom boundaries (lk_agrif=T) 85 83 !! … … 112 110 CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1._wp ) 113 111 ! 114 #if defined key_obc115 IF( lk_obc ) CALL obc_tra( kt ) ! OBC open boundaries116 #endif117 112 #if defined key_bdy 118 113 IF( lk_bdy ) CALL bdy_tra( kt ) ! BDY open boundaries
Note: See TracChangeset
for help on using the changeset viewer.