Changeset 911 for trunk/NEMO/OPA_SRC/TRA/tranxt.F90
- Timestamp:
- 2008-04-28T11:31:32+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/tranxt.F90
r888 r911 27 27 USE domvvl ! variable volume 28 28 USE obctra ! open boundary condition (obc_tra routine) 29 USE bdytra ! Unstructured open boundary condition (bdy_tra routine) 29 30 USE in_out_manager ! I/O manager 30 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 159 160 ! Update tracers on open boundaries. 160 161 CALL obc_tra( kt ) 162 163 ! ! =============== 164 DO jk = 1, jpkm1 ! Horizontal slab 165 ! ! =============== 166 #elif defined key_bdy 167 ! ! =============== 168 END DO ! End of slab 169 ! ! =============== 170 171 ! Update tracers on open boundaries. 172 CALL bdy_tra( kt ) 173 161 174 ! ! =============== 162 175 DO jk = 1, jpkm1 ! Horizontal slab
Note: See TracChangeset
for help on using the changeset viewer.