Changeset 258 for trunk/NEMO/OPA_SRC/DYN/dynkeg.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynkeg.F90
r247 r258 14 14 USE trdmod ! ocean dynamics trends 15 15 USE trdmod_oce ! ocean variables trends 16 USE prtctl ! Print control 16 17 17 18 IMPLICIT NONE … … 119 120 ENDIF 120 121 121 IF(l_ctl) THEN ! print sum trends (used for debugging) 122 zua = SUM( ua(2:nictl,2:njctl,1:jpkm1) * umask(2:nictl,2:njctl,1:jpkm1) ) 123 zva = SUM( va(2:nictl,2:njctl,1:jpkm1) * vmask(2:nictl,2:njctl,1:jpkm1) ) 124 WRITE(numout,*) ' keg - Ua: ', zua-u_ctl, ' Va: ', zva-v_ctl 125 u_ctl = zua ; v_ctl = zva 122 IF(ln_ctl) THEN ! print sum trends (used for debugging) 123 CALL prt_ctl(tab3d_1=ua, clinfo1=' keg - Ua: ', mask1=umask, & 124 & tab3d_2=va, clinfo2=' Va: ', mask2=vmask, clinfo3='dyn') 126 125 ENDIF 127 126
Note: See TracChangeset
for help on using the changeset viewer.