Changeset 15094 for NEMO/trunk/src/OCE/DYN
- Timestamp:
- 2021-07-06T18:24:19+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynldf_iso.F90
r14834 r15094 131 131 ! ! allocate dyn_ldf_iso arrays 132 132 IF( dyn_ldf_iso_alloc() /= 0 ) CALL ctl_stop('STOP', 'dyn_ldf_iso: failed to allocate arrays') 133 ! 134 DO_2D_OVR( 0, 0, 0, 0 ) 135 akzu(ji,jj,1) = 0._wp 136 akzu(ji,jj,jpk) = 0._wp 137 akzv(ji,jj,1) = 0._wp 138 akzv(ji,jj,jpk) = 0._wp 139 END_2D 140 ! 133 141 ENDIF 134 142 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.