- Timestamp:
- 2017-05-18T12:30:54+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r8036 r8042 212 212 ENDIF 213 213 #endif 214 ! 215 ! Met Office addition: if failed, return non-zero exit code 216 IF( nstop /= 0 ) CALL exit( 9 ) 214 217 ! 215 218 END SUBROUTINE nemo_gcm … … 626 629 !!---------------------------------------------------------------------- 627 630 USE diawri , ONLY: dia_wri_alloc 631 USE insitu_tem, ONLY: insitu_tem_alloc 628 632 USE dom_oce , ONLY: dom_oce_alloc 629 633 USE ldfdyn_oce, ONLY: ldfdyn_oce_alloc … … 642 646 ierr = oce_alloc () ! ocean 643 647 ierr = ierr + dia_wri_alloc () 648 ierr = ierr + insitu_tem_alloc() 644 649 ierr = ierr + dom_oce_alloc () ! ocean domain 645 650 ierr = ierr + ldfdyn_oce_alloc() ! ocean lateral physics : dynamics
Note: See TracChangeset
for help on using the changeset viewer.