Changeset 258 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r247 r258 22 22 USE in_out_manager ! I/O manager 23 23 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 24 USE prtctl ! Print control 24 25 25 26 IMPLICIT NONE … … 162 163 CALL lbc_lnk( aeiv, 'V', 1. ) 163 164 164 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) ) 165 166 165 IF(ln_ctl) THEN 166 CALL prt_ctl(tab2d_1=aeiu, clinfo1=' eiv - u: ', ovlap=1) 167 CALL prt_ctl(tab2d_1=aeiv, clinfo1=' eiv - v: ', ovlap=1) 168 ENDIF 169 167 170 ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth) 168 171 IF( cp_cfg == "orca" .AND. jp_cfg == 05 ) THEN … … 178 181 END DO 179 182 END DO 180 IF(l _ctl) THEN181 WRITE(numout,*)' aht - u: ', SUM( ahtu(1:nictl+1,1:njctl+1))182 WRITE(numout,*)' - v: ', SUM( ahtv(1:nictl+1,1:njctl+1))183 WRITE(numout,*)' - w: ', SUM( ahtw(1:nictl+1,1:njctl+1))183 IF(ln_ctl) THEN 184 CALL prt_ctl(tab2d_1=ahtu, clinfo1=' aht - u: ', ovlap=1) 185 CALL prt_ctl(tab2d_1=ahtv, clinfo1=' aht - v: ', ovlap=1) 186 CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht - w: ', ovlap=1) 184 187 ENDIF 185 188 ENDIF … … 327 330 CALL lbc_lnk( aeiv, 'V', 1. ) 328 331 329 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) ) 332 IF(ln_ctl) THEN 333 CALL prt_ctl(tab2d_1=aeiu, clinfo1=' eiv - u: ', ovlap=1) 334 CALL prt_ctl(tab2d_1=aeiv, clinfo1=' eiv - v: ', ovlap=1) 335 ENDIF 330 336 331 337 ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth) … … 342 348 END DO 343 349 END DO 344 IF(l _ctl) THEN345 WRITE(numout,*) ' aht - u: ', SUM( ahtu(1:nictl+1,1:njctl+1))346 WRITE(numout,*) ' - v: ', SUM( ahtv(1:nictl+1,1:njctl+1))347 WRITE(numout,*) ' - w: ', SUM( ahtw(1:nictl+1,1:njctl+1))350 IF(ln_ctl) THEN 351 CALL prt_ctl(tab2d_1=ahtu, clinfo1=' aht - u: ', ovlap=1) 352 CALL prt_ctl(tab2d_1=ahtv, clinfo1=' aht - v: ', ovlap=1) 353 CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht - w: ', ovlap=1) 348 354 ENDIF 349 355 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.