Changeset 13295 for NEMO/trunk/src/OFF/dtadyn.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OFF/dtadyn.F90
r13286 r13295 371 371 gdepw(:,:,1,Kmm) = 0.0_wp 372 372 373 DO_3D _11_11(2, jpk )373 DO_3D( 1, 1, 1, 1, 2, jpk ) 374 374 ! zcoef = (tmask(ji,jj,jk) - wmask(ji,jj,jk)) ! 0 everywhere 375 375 ! tmask = wmask, ie everywhere expect at jk = mikt … … 396 396 ! 397 397 nk_rnf(:,:) = 0 ! set the number of level over which river runoffs are applied 398 DO_2D _11_11398 DO_2D( 1, 1, 1, 1 ) 399 399 IF( h_rnf(ji,jj) > 0._wp ) THEN 400 400 jk = 2 … … 410 410 END_2D 411 411 !!st pourquoi on n'utilise pas le gde3w ici plutôt que de faire une boucle ? 412 DO_2D _11_11412 DO_2D( 1, 1, 1, 1 ) 413 413 h_rnf(ji,jj) = 0._wp 414 414 DO jk = 1, nk_rnf(ji,jj) … … 605 605 gdepw(:,:,1,Kmm) = 0.0_wp 606 606 ! 607 DO_3D _11_11(2, jpk )607 DO_3D( 1, 1, 1, 1, 2, jpk ) 608 608 zcoef = (tmask(ji,jj,jk) - wmask(ji,jj,jk)) 609 609 gdepw(ji,jj,jk,Kmm) = gdepw(ji,jj,jk-1,Kmm) + e3t(ji,jj,jk-1,Kmm) … … 686 686 ! 687 687 !!st code dupliqué même remarque que plus haut pourquoi ne pas utiliser gdepw ? 688 DO_2D _11_11688 DO_2D( 1, 1, 1, 1 ) 689 689 h_rnf(ji,jj) = 0._wp 690 690 DO jk = 1, nk_rnf(ji,jj) ! recalculates h_rnf to be the depth in metres
Note: See TracChangeset
for help on using the changeset viewer.