File indexing completed on 2018-03-02 18:36:11 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
8716d94355 Dimi*0001 #include "CPP_EEOPTIONS.h"
0002
0003
0004
0005
0006
0007 LOGICAL FUNCTION MASTER_CPU_THREAD( myThid )
0008
0009
0010
0011
0012
0013 IMPLICIT NONE
0014
0015
2f1974f6c6 Dimi*0016 #include "SIZE.h"
0017 #include "EEPARAMS.h"
8716d94355 Dimi*0018 #ifdef ALLOW_USE_MPI
0019 # include "EESUPPORT.h"
0020 #endif
0021
0022
0023
0024
0025 INTEGER myThid
0026
0027
0028
0029
0030
0031
0032 MASTER_CPU_THREAD = .FALSE.
0033
0034 #ifdef ALLOW_USE_MPI
0035 IF ( mpiMyId.EQ.0 ) THEN
0036 _BEGIN_MASTER( myThid )
0037 MASTER_CPU_THREAD = .TRUE.
0038 _END_MASTER( myThid )
0039 ENDIF
0040 #else /* ALLOW_USE_MPI */
0041 _BEGIN_MASTER( myThid )
0042 MASTER_CPU_THREAD = .TRUE.
0043 _END_MASTER( myThid )
0044 #endif /* ALLOW_USE_MPI */
0045
0046 RETURN
0047 END