Changeset 258 for trunk/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
r247 r258 22 22 USE lbclnk ! ocean lateral boundary condition (or mpp link) 23 23 USE diaptr ! poleward transport diagnostics 24 USE prtctl ! Print control 24 25 25 26 IMPLICIT NONE … … 80 81 !! * Local declarations 81 82 INTEGER :: ji, jj, jk ! dummy loop indices 82 REAL(wp) :: zta, zsa ! temporary scalars83 83 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 84 84 wk3, wk4 ! work array used for rotated biharmonic … … 134 134 ENDIF 135 135 136 IF(l_ctl) THEN ! print mean trends (used for debugging) 137 zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 138 zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 139 WRITE(numout,*) ' ldf - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl 140 t_ctl = zta ; s_ctl = zsa 136 IF(ln_ctl) THEN ! print mean trends (used for debugging) 137 CALL prt_ctl(tab3d_1=ta, clinfo1=' ldf - Ta: ', mask1=tmask, & 138 & tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra') 141 139 ENDIF 142 140
Note: See TracChangeset
for help on using the changeset viewer.