Changeset 3243


Ignore:
Timestamp:
2012-01-03T17:20:07+01:00 (9 years ago)
Author:
acc
Message:

Branch 2011/dev_NEMO_MERGE_2011. Minor correction in lib_mpp.F90 to ensure that ctl_stop terminates execution when running without key_mpp_mpi

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r3193 r3243  
    17401740      !!                  ***  routine mppstop  *** 
    17411741      !!                    
    1742       !! ** purpose :   Stop massilively parallel processors method 
     1742      !! ** purpose :   Stop massively parallel processors method 
    17431743      !! 
    17441744      !!---------------------------------------------------------------------- 
     
    28152815 
    28162816   SUBROUTINE mppstop 
    2817       WRITE(*,*) 'mppstop: You should not have seen this print! error?' 
     2817      WRITE(*,*) 'mppstop: You should not have seen this print if running in mpp mode! error?...' 
     2818      WRITE(*,*) 'mppstop: ..otherwise this is a stop condition raised by ctl_stop in single processor mode' 
     2819      STOP 
    28182820   END SUBROUTINE mppstop 
    28192821 
Note: See TracChangeset for help on using the changeset viewer.