Changeset 330 for IOIPSL/trunk/tools/flio_rbld.f90
- Timestamp:
- 05/23/08 10:13:49 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/tools/flio_rbld.f90
r258 r330 1494 1494 ENDIF 1495 1495 ENDIF 1496 CALL flrb_cf (j,l_ocf )1496 CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 1497 1497 ENDDO 1498 1498 IF (l_vmin) THEN … … 1521 1521 ENDIF 1522 1522 ENDIF 1523 CALL flrb_cf (j,l_ocf )1523 CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 1524 1524 ENDDO 1525 1525 IF (l_vmin) THEN … … 1548 1548 ENDIF 1549 1549 ENDIF 1550 CALL flrb_cf (j,l_ocf )1550 CALL flrb_cf (j,l_ocf.AND.(f_id_i /= f_id_i1)) 1551 1551 ENDDO 1552 1552 IF (l_vmin) THEN
Note: See TracChangeset
for help on using the changeset viewer.