- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r2668 r2690 1759 1759 !!---------------------------------------------------------------------- 1760 1760 1761 IF( wrk_in_use(2, 1) ) THEN1761 IF( wrk_in_use(2, 1) ) THEN 1762 1762 WRITE(kumout, cform_err) 1763 1763 WRITE(kumout,*) 'mppobc : requested workspace array unavailable' 1764 1764 CALL mppstop 1765 END 1765 ENDIF 1766 1766 1767 1767 ! boundary condition initialization … … 1914 1914 END DO 1915 1915 ! 1916 IF( wrk_not_released(2, 1) ) THEN1916 IF( wrk_not_released(2, 1) ) THEN 1917 1917 WRITE(kumout, cform_err) 1918 1918 WRITE(kumout,*) 'mppobc : failed to release workspace array'
Note: See TracChangeset
for help on using the changeset viewer.