Changeset 84 for trunk/NEMO/OPA_SRC/DYN/dynhpg_atsk.F90
- Timestamp:
- 2004-04-22T15:32:41+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynhpg_atsk.F90
r32 r84 150 150 ! ! =============== 151 151 152 IF( l_ctl .AND. lwp) THEN ! print sum trends (used for debugging)152 IF(l_ctl) THEN ! print sum trends (used for debugging) 153 153 zuap = SUM( ua(2:jpim1,2:jpjm1,1:jpkm1) * umask(2:jpim1,2:jpjm1,1:jpkm1) ) 154 154 zvap = SUM( va(2:jpim1,2:jpjm1,1:jpkm1) * vmask(2:jpim1,2:jpjm1,1:jpkm1) ) … … 295 295 END DO ! End of slab 296 296 ! ! =============== 297 298 IF(l_ctl) THEN ! print sum trends (used for debugging) 299 zuap = SUM( ua(2:jpim1,2:jpjm1,1:jpkm1) * umask(2:jpim1,2:jpjm1,1:jpkm1) ) 300 zvap = SUM( va(2:jpim1,2:jpjm1,1:jpkm1) * vmask(2:jpim1,2:jpjm1,1:jpkm1) ) 301 WRITE(numout,*) ' hpg - Ua: ', zuap-u_ctl, ' Va: ', zvap-v_ctl 302 u_ctl = zuap ; v_ctl = zvap 303 ENDIF 304 297 305 END SUBROUTINE dyn_hpg_atsk 298 306 … … 402 410 ! ! =============== 403 411 404 IF( l_ctl .AND. lwp) THEN ! print sum trends (used for debugging)412 IF(l_ctl) THEN ! print sum trends (used for debugging) 405 413 WRITE(numout,*) ' hpg - Ua: ', SUM(ua*umask), ' Va: ', SUM(va*vmask) 406 414 zuap = SUM( ua(2:jpim1,2:jpjm1,1:jpkm1) * umask(2:jpim1,2:jpjm1,1:jpkm1) )
Note: See TracChangeset
for help on using the changeset viewer.