Changeset 258 for trunk/NEMO/OPA_SRC/DYN/wzvmod.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/wzvmod.F90
r247 r258 12 12 USE dom_oce ! ocean space and time domain variables 13 13 USE in_out_manager ! I/O manager 14 USE prtctl ! Print control 14 15 15 16 IMPLICIT NONE … … 80 81 ! ! =============== 81 82 82 IF(l_ctl) THEN ! print mean trends (used for debugging) 83 WRITE(numout,*) ' w**2 - : ', SUM( wn(2:nictl,2:njctl,1:jpkm1) * wn (2:nictl,2:njctl,1:jpkm1) ) 84 ENDIF 83 IF(ln_ctl) CALL prt_ctl(tab3d_1=wn, clinfo1=' w**2 - : ', mask1=wn) 85 84 86 85 END SUBROUTINE wzv … … 131 130 END DO 132 131 133 IF(l_ctl) THEN ! print mean trends (used for debugging) 134 WRITE(numout,*) ' w**2 - : ', SUM( wn(2:nictl,2:njctl,1:jpkm1) * wn (2:nictl,2:njctl,1:jpkm1) ) 135 ENDIF 132 IF(ln_ctl) CALL prt_ctl(tab3d_1=wn, clinfo1=' w**2 - : ', mask1=wn) 136 133 137 134 END SUBROUTINE wzv
Note: See TracChangeset
for help on using the changeset viewer.