Changeset 258 for trunk/NEMO/OPA_SRC/TRA/trasbc.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/trasbc.F90
r247 r258 17 17 USE trdmod_oce ! ocean variables trends 18 18 USE in_out_manager ! I/O manager 19 USE prtctl ! Print control 19 20 20 21 IMPLICIT NONE … … 138 139 ENDIF 139 140 140 IF(l_ctl) THEN ! print mean trends (used for debugging) 141 zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 142 zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 143 WRITE(numout,*) ' sbc - Ta: ', zta, ' Sa: ', zsa 144 t_ctl = zta ; s_ctl = zsa 141 IF(ln_ctl) THEN ! print mean trends (used for debugging) 142 CALL prt_ctl(tab3d_1=ta, clinfo1=' sbc - Ta: ', mask1=tmask, & 143 & tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra') 145 144 ENDIF 146 145
Note: See TracChangeset
for help on using the changeset viewer.