Changeset 15 for trunk/NEMO/OPA_SRC/restart.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/restart.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -45 +45 @@
 #  include "restart_fdir.h90"
 
-#elif defined key_mpp
-   !!----------------------------------------------------------------------
-   !!                       direct acces file one per processor
-   !!                  (merging/splitting is done off-line, eventually)
+#elif  ( defined key_mpp_mpi   ||   defined key_mpp_shmem )
+   !!----------------------------------------------------------------------
+   !!   'key_mpp_mpi'     OR      MPI massively parallel processing library
+   !!   'key_mpp_shmem'         SHMEM massively parallel processing library
+   !!----------------------------------------------------------------------
+   !!                 direct acces file one per processor
+   !!          (merging/splitting is done off-line, eventually)
    !!-----------------------------------------------------------------------
 #  include "restart_mpp.h90"
@@ -79 +82 @@
       LOGICAL ::   llbon
       CHARACTER (len=50) ::   clname, cln
-      INTEGER ::   &
-         ic, jc, itime
-      REAL(wp) :: zdate0, zinfo(10)
-
-      REAL(wp), DIMENSION(1) ::  &
-         zfice, zfblk                       ! used only in case of ice , bulk
+      INTEGER ::   ic, jc, itime
+      REAL(wp) ::   zdate0
+      REAL(wp), DIMENSION( 1) ::   zfice, zfblk   ! used only in case of ice & bulk
+      REAL(wp), DIMENSION(10) ::   zinfo(10)
       !!----------------------------------------------------------------------
       !!  OPA 8.5, LODYC-IPSL (2002)