Changeset 258 for trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r247 r258 23 23 USE lbclnk ! ocean lateral boundary condition (or mpp link) 24 24 USE diaptr ! poleward transport diagnostics 25 USE prtctl ! Print control 25 26 26 27 … … 86 87 !! * Local declarations 87 88 INTEGER :: ji, jj, jk ! dummy loop indices 88 REAL(wp) :: zta, zsa,& ! temporary scalar89 REAL(wp) :: & ! temporary scalar 89 90 ztai, ztaj, ztak, & ! " " 90 91 zsai, zsaj, zsak ! " " … … 343 344 ENDIF 344 345 345 IF(l_ctl) THEN 346 zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 347 zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 348 WRITE(numout,*) ' zad - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl, ' tvd' 349 t_ctl = zta ; s_ctl = zsa 346 IF(ln_ctl) THEN 347 CALL prt_ctl(tab3d_1=ta, clinfo1=' tvd adv - Ta: ', mask1=tmask, & 348 & tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra') 350 349 ENDIF 351 350
Note: See TracChangeset
for help on using the changeset viewer.