Context Navigation

Changeset 3027

Timestamp:

2011-10-28T18:14:16+02:00 (13 years ago)

Author:

acc

Message:

Branch dev_NOC_2011_MERGE. #874. Step 8: minor corrections for single processor running as uncovered during SETTE testing

Location:

branches/2011/dev_NOC_2011_MERGE/NEMOGCM/NEMO/OPA_SRC

Files:

r2986	r3027
24	24	USE oce ! ocean dynamics and tracers
25	25	USE dom_oce ! ocean space and time domain
	26	USE obc_oce ! ocean lateral open boundary condition
26	27	USE in_out_manager ! I/O manager
27	28	USE lib_mpp ! distributed memory computing

r3009	r3027
2663	2663
2664	2664	LOGICAL, PUBLIC, PARAMETER :: lk_mpp = .FALSE. !: mpp flag
	2665	LOGICAL, PUBLIC :: ln_nnogather = .FALSE. !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used)
2665	2666	INTEGER :: ncomm_ice
2666	2667	!!----------------------------------------------------------------------

-                      r3009
+                      r3027
    END SUBROUTINE factorise
+#if defined key_mpp_mpi
    SUBROUTINE nemo_northcomms
       !!======================================================================
 …
    END SUBROUTINE nemo_northcomms
+#else
+   SUBROUTINE nemo_northcomms      ! Dummy routine
+      WRITE(*,*) 'nemo_northcomms: You should not have seen this print! error?'
+   END SUBROUTINE nemo_northcomms
+#endif
    !!======================================================================
 END MODULE nemogcm

Note: See TracChangeset for help on using the changeset viewer.