Changeset 13295 for NEMO/trunk/src/ICE/icedyn.F90
- Timestamp:
- 2020-07-10T20:24:21+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn.F90
r13226 r13295 126 126 ! CFL = 0.5 at a distance from the bound of 1/6 of the basin length 127 127 ! Then for dx = 2m and dt = 1s => rn_uice = u (1/6th) = 1m/s 128 DO_2D _11_11128 DO_2D( 1, 1, 1, 1 ) 129 129 zcoefu = ( REAL(jpiglo+1)*0.5 - REAL(ji+nimpp-1) ) / ( REAL(jpiglo+1)*0.5 - 1. ) 130 130 zcoefv = ( REAL(jpjglo+1)*0.5 - REAL(jj+njmpp-1) ) / ( REAL(jpjglo+1)*0.5 - 1. ) … … 155 155 156 156 ALLOCATE( zdivu_i(jpi,jpj) ) 157 DO_2D _00_00157 DO_2D( 0, 0, 0, 0 ) 158 158 zdivu_i(ji,jj) = ( e2u(ji,jj) * u_ice(ji,jj) - e2u(ji-1,jj) * u_ice(ji-1,jj) & 159 159 & + e1v(ji,jj) * v_ice(ji,jj) - e1v(ji,jj-1) * v_ice(ji,jj-1) ) * r1_e1e2t(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.