Changeset 106 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2004-06-28T10:08:06+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r80 r106 158 158 CALL lbc_lnk( aeiv, 'V', 1. ) 159 159 160 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu( :,:) ), ' v: ', SUM( aeiv(:,:) )160 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) ) 161 161 162 162 … … 174 174 END DO 175 175 END DO 176 IF(l_ctl) WRITE(numout,*) ' aht - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) ) 176 IF(l_ctl) THEN 177 WRITE(numout,*)' aht - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) ) 178 WRITE(numout,*)' - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) ) 179 WRITE(numout,*)' - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) ) 180 ENDIF 177 181 ENDIF 178 182 … … 319 323 CALL lbc_lnk( aeiv, 'V', 1. ) 320 324 321 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu( :,:) ), ' v: ', SUM( aeiv(:,:) )325 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) ) 322 326 323 327 ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth) … … 334 338 END DO 335 339 END DO 336 IF(l_ctl) WRITE(numout,*) ' aht - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) ) 340 IF(l_ctl) THEN 341 WRITE(numout,*) ' aht - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) ) 342 WRITE(numout,*) ' - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) ) 343 WRITE(numout,*) ' - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) ) 344 ENDIF 337 345 ENDIF 338 346
Note: See TracChangeset
for help on using the changeset viewer.