- Timestamp:
- 2017-05-30T09:24:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r7332 r8086 97 97 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 98 98 ! ! allocate zdfmxl arrays 99 IF( zdf_mxl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' ) 99 100 ENDIF 100 101
Note: See TracChangeset
for help on using the changeset viewer.