Changeset 803 for codes/icosagcm/trunk/src

Timestamp:

01/25/19 17:11:55 (5 years ago)

Author:

adurocher

Message:

Fixed compilation with gfortran no_io/sequential

Fixed syntax error on functions from netcdf_mod with NO_IO
Added missing bcast and gather in mpi_mod

Location:

codes/icosagcm/trunk/src

Files:

• output/netcdf_mod.F90 (modified) (1 diff)
• parallel/mpi_mod.F90 (modified) (1 diff)

codes/icosagcm/trunk/src/output/netcdf_mod.F90

@@ -199 +199 @@
 END MODULE netcdf_mod
 
-  FUNCTION NF90_CREATE_PAR
+  FUNCTION NF90_CREATE_PAR ()
     INTEGER ::  NF90_CREATE_PAR
-    RETURN 0
+    NF90_CREATE_PAR = 0
   END
   
- FUNCTION NF90_DEF_VAR_CHUNKING 
+ FUNCTION NF90_DEF_VAR_CHUNKING ()
     INTEGER ::  NF90_DEF_VAR_CHUNKING
-    RETURN 0
- END
- 
- FUNCTION NF90_CREATE
+    NF90_DEF_VAR_CHUNKING = 0
+ END
+ 
+ FUNCTION NF90_CREATE()
     INTEGER ::  NF90_CREATE
-    RETURN 0
- END
- 
- FUNCTION  NF90_DEF_DIM
+    NF90_CREATE = 0
+ END
+ 
+ FUNCTION  NF90_DEF_DIM ()
     INTEGER ::  NF90_DEF_DIM
-    RETURN 0
- END
- 
- FUNCTION NF90_PUT_ATT
+    NF90_DEF_DIM = 0
+ END
+ 
+ FUNCTION NF90_PUT_ATT ()
     INTEGER ::  NF90_PUT_ATT
-    RETURN 0
- END
- 
- FUNCTION NF90_ENDDEF
+    NF90_PUT_ATT = 0
+ END
+ 
+ FUNCTION NF90_ENDDEF ()
     INTEGER ::  NF90_ENDDEF
-    RETURN 0 
- END
-  
- FUNCTION NF90_CLOSE
+    NF90_ENDDEF = 0
+ END
+  
+ FUNCTION NF90_CLOSE ()
     INTEGER ::  NF90_CLOSE
-    RETURN 0 
- END
- 
- FUNCTION NF90_SYNC
+    NF90_CLOSE = 0
+ END
+ 
+ FUNCTION NF90_SYNC ()
     INTEGER ::  NF90_SYNC
-    RETURN 0 
- END
- 
- FUNCTION NF90_OPEN
+    NF90_SYNC = 0
+ END
+ 
+ FUNCTION NF90_OPEN ()
     INTEGER ::  NF90_OPEN
-    RETURN 0 
- END
- 
- FUNCTION NF90_INQ_VARID
+    NF90_OPEN = 0
+ END
+ 
+ FUNCTION NF90_INQ_VARID ()
     INTEGER ::  NF90_INQ_VARID
-    RETURN 0 
- END
- 
- FUNCTION NF90_GET_ATT
+    NF90_INQ_VARID = 0
+ END
+ 
+ FUNCTION NF90_GET_ATT ()
     INTEGER ::  NF90_GET_ATT
-    RETURN 0 
- END
-
-#endif
-
+    NF90_GET_ATT = 0
+ END
+
+#endif
+

codes/icosagcm/trunk/src/parallel/mpi_mod.F90

@@ -81 +81 @@
  END
 
+ SUBROUTINE MPI_BCAST
+ END
+
+ SUBROUTINE MPI_GATHER
+ END
 #endif