Changeset 15 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -106 +106 @@
          OPEN( UNIT=numout, FILE='ocean.output', FORM='FORMATTED' )
       ENDIF
-#if defined key_mpp
-      OPEN( UNIT=nummpp, FILE='mpp.output', FORM='FORMATTED' )
-#endif
+      IF( lk_mpp )   OPEN( UNIT=nummpp, FILE='mpp.output', FORM='FORMATTED' )
 
 
@@ -222 +220 @@
       ENDIF
 
-#if defined key_mpp
-      CALL mppstop                          ! Close all files (mpp)
-#endif
+      IF( lk_mpp )   CALL mppstop                          ! Close all files (mpp)
 
    END SUBROUTINE opa_model
+
 
    SUBROUTINE opa_flg