Changeset 2625 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM

Timestamp:

2011-02-27T17:36:24+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; OPA_SRC mpp compilation: suppression of the USE in_out_manager in lib_mpp + style in DYN

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (2 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -20 +20 @@
    USE lib_print     ! formated print library
    USE nc4interface  ! NetCDF4 interface
-   USE lib_mpp, ONLY :   lk_mpp
+   USE lib_mpp       ! MPP library
 
    IMPLICIT NONE
@@ -173 +173 @@
             WRITE(numout,*) 
             WRITE(numout,*) 'huge E-R-R-O-R : immediate stop'
-            IF(lk_mpp)   CALL mppstop()
-            STOP
+            CALL mppstop()
          ENDIF
       ENDIF