Changeset 13295 for NEMO/trunk/src/ICE/icedyn_rdgrft.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_rdgrft.F90
r13226 r13295 161 161 npti = 0 ; nptidx(:) = 0 162 162 ipti = 0 ; iptidx(:) = 0 163 DO_2D _11_11163 DO_2D( 1, 1, 1, 1 ) 164 164 IF ( at_i(ji,jj) > epsi10 ) THEN 165 165 npti = npti + 1 … … 774 774 ! !--------------------------------------------------! 775 775 CASE( 1 ) !--- Spatial smoothing 776 DO_2D _00_00776 DO_2D( 0, 0, 0, 0 ) 777 777 IF ( SUM( a_i(ji,jj,:) ) > 0._wp ) THEN 778 778 zworka(ji,jj) = ( 4.0 * strength(ji,jj) & … … 785 785 END_2D 786 786 787 DO_2D _00_00787 DO_2D( 0, 0, 0, 0 ) 788 788 strength(ji,jj) = zworka(ji,jj) 789 789 END_2D … … 796 796 ENDIF 797 797 ! 798 DO_2D _00_00798 DO_2D( 0, 0, 0, 0 ) 799 799 IF ( SUM( a_i(ji,jj,:) ) > 0._wp ) THEN 800 800 itframe = 1 ! number of time steps for the running mean
Note: See TracChangeset
for help on using the changeset viewer.