Changeset 13295 for NEMO/trunk/src/ICE/iceitd.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/iceitd.F90
r13226 r13295 98 98 ! 99 99 npti = 0 ; nptidx(:) = 0 100 DO_2D _11_11100 DO_2D( 1, 1, 1, 1 ) 101 101 IF ( at_i(ji,jj) > epsi10 ) THEN 102 102 npti = npti + 1 … … 611 611 ! !--------------------------------------- 612 612 npti = 0 ; nptidx(:) = 0 613 DO_2D _11_11613 DO_2D( 1, 1, 1, 1 ) 614 614 IF( a_i(ji,jj,jl) > 0._wp .AND. v_i(ji,jj,jl) > (a_i(ji,jj,jl) * hi_max(jl)) ) THEN 615 615 npti = npti + 1 … … 650 650 ! !----------------------------------------- 651 651 npti = 0 ; nptidx(:) = 0 652 DO_2D _11_11652 DO_2D( 1, 1, 1, 1 ) 653 653 IF( a_i(ji,jj,jl+1) > 0._wp .AND. v_i(ji,jj,jl+1) <= (a_i(ji,jj,jl+1) * hi_max(jl)) ) THEN 654 654 npti = npti + 1
Note: See TracChangeset
for help on using the changeset viewer.