Changeset 28 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2004-02-17T10:08:46+01:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90
r3 r28 295 295 DO jj = 2, jpjm1 296 296 DO ji = fs_2, fs_jpim1 ! vector opt. 297 aeiw(ji,jj) = MIN( aeiw(ji,jj), 1000.)297 aeiw(ji,jj) = MIN( aeiw(ji,jj), aeiv0 ) 298 298 END DO 299 299 END DO … … 336 336 #else 337 337 !!---------------------------------------------------------------------- 338 !! Default option Empty module338 !! Default option Dummy module 339 339 !!---------------------------------------------------------------------- 340 340 CONTAINS 341 SUBROUTINE ldf_eiv ! Empty routine 341 SUBROUTINE ldf_eiv( kt ) ! Empty routine 342 WRITE(*,*) 'ldf_eiv: You should not have seen this print! error?', kt 342 343 END SUBROUTINE ldf_eiv 343 344 #endif
Note: See TracChangeset
for help on using the changeset viewer.