Changeset 1202 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-09-24T15:45:33+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom.F90
r1200 r1202 107 107 ! do we read the overlap 108 108 ! ugly patch SM+JMM+RB to overwrite global definition in some cases 109 llnoov = (jpni * jpnj ) == jpni .AND. .NOT. lk_agrif109 llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 110 110 ! create the file name by added, if needed, TRIM(Agrif_CFixed()) and TRIM(clsuffix) 111 111 ! ============= … … 449 449 ! do we read the overlap 450 450 ! ugly patch SM+JMM+RB to overwrite global definition in some cases 451 llnoov = (jpni * jpnj ) == jpni .AND. .NOT. lk_agrif451 llnoov = (jpni * jpnj ) == jpnij .AND. .NOT. lk_agrif 452 452 ! check kcount and kstart optionals parameters... 453 453 IF( PRESENT(kcount) .AND. (.NOT. PRESENT(kstart)) ) CALL ctl_stop(trim(clinfo), 'kcount present needs kstart present')
Note: See TracChangeset
for help on using the changeset viewer.