- Timestamp:
- 2015-07-20T11:12:03+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_FOAM_local/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5407 r5613 206 206 ENDIF 207 207 #endif 208 ! 209 ! Met Office addition: if failed, return non-zero exit code 210 IF( nstop /= 0 ) CALL exit( 9 ) 208 211 ! 209 212 END SUBROUTINE nemo_gcm … … 612 615 !!---------------------------------------------------------------------- 613 616 USE diawri , ONLY: dia_wri_alloc 617 USE insitu_tem, ONLY: insitu_tem_alloc 614 618 USE dom_oce , ONLY: dom_oce_alloc 615 619 USE ldfdyn_oce, ONLY: ldfdyn_oce_alloc … … 628 632 ierr = oce_alloc () ! ocean 629 633 ierr = ierr + dia_wri_alloc () 634 ierr = ierr + insitu_tem_alloc() 630 635 ierr = ierr + dom_oce_alloc () ! ocean domain 631 636 ierr = ierr + ldfdyn_oce_alloc() ! ocean lateral physics : dynamics
Note: See TracChangeset
for help on using the changeset viewer.