Changeset 1441 for trunk/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2009-05-12T15:33:06+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom.F90
r1412 r1441 153 153 ENDIF 154 154 #else 155 IF( Agrif_Root() ) THEN 156 IF( iom_open_init == 0 ) THEN 157 iom_file(:)%nfid = 0 158 iom_open_init = 1 155 IF( Agrif_Root() ) THEN 156 IF( iom_open_init == 0 ) THEN 157 iom_file(:)%nfid = 0 158 iom_open_init = 1 159 ENDIF 159 160 ENDIF 160 161 #endif
Note: See TracChangeset
for help on using the changeset viewer.