Changeset 450 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2006-04-28T14:24:20+02:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r412 r450 186 186 CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht - w: ', ovlap=1) 187 187 ENDIF 188 ENDIF 189 190 IF( aeiv0 == 0.e0 ) THEN 191 aeiu(:,:) = 0.e0 192 aeiv(:,:) = 0.e0 193 aeiw(:,:) = 0.e0 188 194 ENDIF 189 195 … … 354 360 ENDIF 355 361 ENDIF 362 363 IF( aeiv0 == 0.e0 ) THEN 364 aeiu(:,:) = 0.e0 365 aeiv(:,:) = 0.e0 366 aeiw(:,:) = 0.e0 367 ENDIF 356 368 357 369 END SUBROUTINE ldf_eiv
Note: See TracChangeset
for help on using the changeset viewer.