Changeset 258 for trunk/NEMO/OPA_SRC/DYN/dynspg_fsc.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_fsc.F90
r247 r258 33 33 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 34 34 USE cla_dynspg ! cross land advection 35 USE prtctl ! Print control 35 36 36 37 IMPLICIT NONE … … 337 338 ENDIF 338 339 339 IF(l _ctl) THEN ! print sum trends (used for debugging)340 WRITE(numout,*) ' spg - Ua: ', SUM( ua(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1) ),&341 & ' Va: ', SUM( va(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1))340 IF(ln_ctl) THEN ! print sum trends (used for debugging) 341 CALL prt_ctl(tab3d_1=ua, clinfo1=' spg - Ua: ', mask1=umask, & 342 & tab3d_2=va, clinfo2=' Va: ', mask2=vmask) 342 343 ENDIF 343 344 … … 370 371 371 372 372 IF(l _ctl) THEN ! print sum trends (used for debugging)373 WRITE(numout,*) ' spg - ssh:', SUM( sshn(2:nictl,2:njctl)*tmask(2:nictl,2:njctl,1))373 IF(ln_ctl) THEN ! print sum trends (used for debugging) 374 CALL prt_ctl(tab2d_1=sshn, clinfo1=' spg - ssh: ', mask1=tmask) 374 375 ENDIF 375 376
Note: See TracChangeset
for help on using the changeset viewer.