Changeset 258 for trunk/NEMO/OPA_SRC/DYN/dynnxt.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynnxt.F90
r247 r258 14 14 USE obcdyn ! open boundary condition for momentum (obc_dyn routine) 15 15 USE lbclnk ! lateral boundary condition (or mpp link) 16 USE prtctl ! Print control 16 17 17 18 IMPLICIT NONE … … 135 136 ! ! =============== 136 137 137 IF(l_ctl) WRITE(numout,*) ' nxt - Un: ', SUM(un(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1)), & 138 & ' Vn: ', SUM(vn(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1)) 138 IF(ln_ctl) THEN 139 CALL prt_ctl(tab3d_1=un, clinfo1=' nxt - Un: ', mask1=umask, & 140 & tab3d_2=vn, clinfo2=' Vn: ', mask2=vmask) 141 ENDIF 139 142 140 143 END SUBROUTINE dyn_nxt
Note: See TracChangeset
for help on using the changeset viewer.