- Timestamp:
- 2020-07-30T18:57:15+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbutl.F90
r13359 r13365 434 434 ii = mi1(ii) 435 435 ij = mj1(ij) 436 437 IF (lwp) THEN438 WRITE(numout,*) 'bilin_e ', pi, pj439 WRITE(numout,*) ii, ij, zi, zj440 WRITE(numout,*) ''441 END IF442 443 436 ! 444 437 IF( 0.0_wp <= zi .AND. zi < 0.5_wp ) THEN
Note: See TracChangeset
for help on using the changeset viewer.