Changeset 15 for trunk/NEMO/OPA_SRC/mppini_2.h90

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/mppini_2.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/mppini_2.h90

@@ -70 +70 @@
       !!----------------------------------------------------------------------
 
-#if defined key_mpp_pvm
-      IF(lwp)WRITE(numout,*)
-      IF(lwp)WRITE(numout,*) 'mpp_init : Message Passing PVM'
-      IF(lwp)WRITE(numout,*) '~~~~~~~~'
-#endif
 #if defined key_mpp_shmem
       IF(lwp)WRITE(numout,*)
@@ -89 +84 @@
       IF(lwp)WRITE(numout,*) '~~~~~~~~'
       IF(lwp)WRITE(numout,*) ' '
-#endif
-#if ! defined key_mpp_pvm &&  ! defined key_mpp_mpi && ! defined key_mpp_shmem
-      IF(lwp)WRITE(numout,*)
-      IF(lwp)WRITE(numout,*) 'mpp_init : Message Passing PVM onto T3E'
-      IF(lwp)WRITE(numout,*) '~~~~~~~~'
 #endif