Changeset 80 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2004-04-22T14:58:49+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r28 r80 36 36 CONTAINS 37 37 38 # if defined key_autotasking38 # if defined key_autotasking 39 39 !!---------------------------------------------------------------------- 40 40 !! 'key_autotasking' : autotasking (j-slab) … … 158 158 CALL lbc_lnk( aeiv, 'V', 1. ) 159 159 160 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(:,:) ), ' v: ', SUM( aeiv(:,:) ) 161 162 160 163 ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth) 161 164 IF( cp_cfg == "orca" .AND. jp_cfg == 05 ) THEN … … 171 174 END DO 172 175 END DO 176 IF(l_ctl) WRITE(numout,*) ' aht - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) ) 173 177 ENDIF 174 178 175 179 END SUBROUTINE ldf_eiv 176 180 177 # else181 # else 178 182 !!---------------------------------------------------------------------- 179 183 !! Default key k-j-i loops 180 184 !!---------------------------------------------------------------------- 181 185 182 SUBROUTINE ldf_eiv 186 SUBROUTINE ldf_eiv( kt ) 183 187 !!---------------------------------------------------------------------- 184 188 !! *** ROUTINE ldf_eiv *** … … 228 232 229 233 DO jk = 1, jpk 230 # 234 # if defined key_vectopt_loop && ! defined key_autotasking 231 235 !CDIR NOVERRCHK 232 236 DO ji = 1, jpij ! vector opt. … … 246 250 zhw(ji,1) = zhw(ji,1) + ze3w 247 251 END DO 248 # 252 # else 249 253 DO jj = 2, jpjm1 250 254 !CDIR NOVERRCHK … … 266 270 END DO 267 271 END DO 268 # 272 # endif 269 273 END DO 270 274 … … 315 319 CALL lbc_lnk( aeiv, 'V', 1. ) 316 320 321 IF(l_ctl) WRITE(numout,*) ' eiv - u: ', SUM( aeiu(:,:) ), ' v: ', SUM( aeiv(:,:) ) 322 317 323 ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth) 318 324 IF( cp_cfg == "orca" .AND. jp_cfg == 05 ) THEN … … 323 329 zaht = ( 1. - MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min ) & 324 330 & + aht0 * upsrnfh(ji,jj) ! enhanced near river mouths 325 ahtu(ji,jj) = MAX( zaht_min, aeiu(ji,jj) ) + zaht326 ahtv(ji,jj) = MAX( zaht_min, aeiv(ji,jj) ) + zaht327 ahtw(ji,jj) = MAX( zaht_min, aeiw(ji,jj) ) + zaht331 ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 ) 332 ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 ) 333 ahtw(ji,jj) = MAX( MAX( zaht_min, aeiw(ji,jj) ) + zaht, aht0 ) 328 334 END DO 329 335 END DO 336 IF(l_ctl) WRITE(numout,*) ' aht - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) ) 330 337 ENDIF 331 338 332 339 END SUBROUTINE ldf_eiv 333 340 334 # endif341 # endif 335 342 336 343 #else
Note: See TracChangeset
for help on using the changeset viewer.