- Timestamp:
- 2020-09-15T12:56:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/temporary_r4_trunk/src/ICE/icedyn_rdgrft.F90
r13469 r13470 159 159 npti = 0 ; nptidx(:) = 0 160 160 ipti = 0 ; iptidx(:) = 0 161 DO_2D _11_11161 DO_2D( 1, 1, 1, 1 ) 162 162 IF ( at_i(ji,jj) > epsi10 ) THEN 163 163 npti = npti + 1 … … 775 775 ! !--------------------------------------------------! 776 776 CASE( 1 ) !--- Spatial smoothing 777 DO_2D _00_00777 DO_2D( 0, 0, 0, 0 ) 778 778 IF ( SUM( a_i(ji,jj,:) ) > 0._wp ) THEN 779 779 zworka(ji,jj) = ( 4.0 * strength(ji,jj) & … … 786 786 END_2D 787 787 788 DO_2D _00_00788 DO_2D( 0, 0, 0, 0 ) 789 789 strength(ji,jj) = zworka(ji,jj) 790 790 END_2D … … 797 797 ENDIF 798 798 ! 799 DO_2D _00_00799 DO_2D( 0, 0, 0, 0 ) 800 800 IF ( SUM( a_i(ji,jj,:) ) > 0._wp ) THEN 801 801 itframe = 1 ! number of time steps for the running mean
Note: See TracChangeset
for help on using the changeset viewer.