New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15015 for NEMO/branches/2021/ticket2680_C1D_PAPA/src/ICE/iceitd.F90 – NEMO

Ignore:
Timestamp:
2021-06-17T19:17:25+02:00 (3 years ago)
Author:
gsamson
Message:

merge trunk into branch (#2680)

Location:
NEMO/branches/2021/ticket2680_C1D_PAPA
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2680_C1D_PAPA

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette@14244        sette 
         11^/utils/CI/sette@HEAD        sette 
         12 

  • NEMO/branches/2021/ticket2680_C1D_PAPA/src/ICE/iceitd.F90

    r14072 r15015  
    101101      ! 
    102102      npti = 0   ;   nptidx(:) = 0 
    103       DO_2D( 1, 1, 1, 1 ) 
     103      DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
    104104         IF ( at_i(ji,jj) > epsi10 ) THEN 
    105105            npti = npti + 1 
    … …  
    624624         !                    !--------------------------------------- 
    625625         npti = 0   ;   nptidx(:) = 0 
    626          DO_2D( 1, 1, 1, 1 ) 
     626         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
    627627            IF( a_i(ji,jj,jl) > 0._wp .AND. v_i(ji,jj,jl) > (a_i(ji,jj,jl) * hi_max(jl)) ) THEN 
    628628               npti = npti + 1 
    … …  
    660660         !                    !----------------------------------------- 
    661661         npti = 0 ; nptidx(:) = 0 
    662          DO_2D( 1, 1, 1, 1 ) 
     662         DO_2D( nn_hls, nn_hls, nn_hls, nn_hls ) 
    663663            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 
    664664               npti = npti + 1 
Note: See TracChangeset for help on using the changeset viewer.