Changeset 14856 for NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/SBC/sbcrnf.F90
- Timestamp:
- 2021-05-12T17:58:07+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14122_HPC-08_Mueller_OSMOSIS_streamlining/src/OCE/SBC/sbcrnf.F90
r14822 r14856 211 211 IF( ln_rnf_depth .OR. ln_rnf_depth_ini ) THEN !== runoff distributed over several levels ==! 212 212 IF( ln_linssh ) THEN !* constant volume case : just apply the runoff input flow 213 DO_2D ( 1, 1, 1, 1)213 DO_2D_OVR( nn_hls-1, nn_hls, nn_hls-1, nn_hls ) 214 214 DO jk = 1, nk_rnf(ji,jj) 215 215 phdivn(ji,jj,jk) = phdivn(ji,jj,jk) - ( rnf(ji,jj) + rnf_b(ji,jj) ) * zfact * r1_rho0 / h_rnf(ji,jj) … … 217 217 END_2D 218 218 ELSE !* variable volume case 219 DO_2D ( 1, 1, 1, 1 )! update the depth over which runoffs are distributed219 DO_2D_OVR( nn_hls, nn_hls, nn_hls, nn_hls ) ! update the depth over which runoffs are distributed 220 220 h_rnf(ji,jj) = 0._wp 221 221 DO jk = 1, nk_rnf(ji,jj) ! recalculates h_rnf to be the depth in metres … … 229 229 ENDIF 230 230 ELSE !== runoff put only at the surface ==! 231 h_rnf (:,:) = e3t (:,:,1,Kmm) ! update h_rnf to be depth of top box 232 phdivn(:,:,1) = phdivn(:,:,1) - ( rnf(:,:) + rnf_b(:,:) ) * zfact * r1_rho0 / e3t(:,:,1,Kmm) 231 DO_2D_OVR( nn_hls, nn_hls, nn_hls, nn_hls ) 232 h_rnf (ji,jj) = e3t (ji,jj,1,Kmm) ! update h_rnf to be depth of top box 233 phdivn(ji,jj,1) = phdivn(ji,jj,1) - ( rnf(ji,jj) + rnf_b(ji,jj) ) * zfact * r1_rho0 / e3t(ji,jj,1,Kmm) 234 END_2D 233 235 ENDIF 234 236 ! … … 363 365 ! 364 366 nk_rnf(:,:) = 0 ! set the number of level over which river runoffs are applied 365 DO_2D( 1, 1, 1, 1)367 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 366 368 IF( h_rnf(ji,jj) > 0._wp ) THEN 367 369 jk = 2 … … 376 378 ENDIF 377 379 END_2D 378 DO_2D( 1, 1, 1, 1) ! set the associated depth380 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) ! set the associated depth 379 381 h_rnf(ji,jj) = 0._wp 380 382 DO jk = 1, nk_rnf(ji,jj) … … 406 408 WHERE( zrnfcl(:,:,1) > 0._wp ) h_rnf(:,:) = zacoef * zrnfcl(:,:,1) ! compute depth for all runoffs 407 409 ! 408 DO_2D( 1, 1, 1, 1) ! take in account min depth of ocean rn_hmin410 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) ! take in account min depth of ocean rn_hmin 409 411 IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 410 412 jk = mbkt(ji,jj) … … 414 416 ! 415 417 nk_rnf(:,:) = 0 ! number of levels on which runoffs are distributed 416 DO_2D( 1, 1, 1, 1)418 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 417 419 IF( zrnfcl(ji,jj,1) > 0._wp ) THEN 418 420 jk = 2 … … 425 427 END_2D 426 428 ! 427 DO_2D( 1, 1, 1, 1) ! set the associated depth429 DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) ! set the associated depth 428 430 h_rnf(ji,jj) = 0._wp 429 431 DO jk = 1, nk_rnf(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.