Changeset 803 for codes/icosagcm/trunk/src/output
- Timestamp:
- 01/25/19 17:11:55 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/output/netcdf_mod.F90
r788 r803 199 199 END MODULE netcdf_mod 200 200 201 FUNCTION NF90_CREATE_PAR 201 FUNCTION NF90_CREATE_PAR () 202 202 INTEGER :: NF90_CREATE_PAR 203 RETURN0203 NF90_CREATE_PAR = 0 204 204 END 205 205 206 FUNCTION NF90_DEF_VAR_CHUNKING 206 FUNCTION NF90_DEF_VAR_CHUNKING () 207 207 INTEGER :: NF90_DEF_VAR_CHUNKING 208 RETURN0209 END 210 211 FUNCTION NF90_CREATE 208 NF90_DEF_VAR_CHUNKING = 0 209 END 210 211 FUNCTION NF90_CREATE() 212 212 INTEGER :: NF90_CREATE 213 RETURN0214 END 215 216 FUNCTION NF90_DEF_DIM 213 NF90_CREATE = 0 214 END 215 216 FUNCTION NF90_DEF_DIM () 217 217 INTEGER :: NF90_DEF_DIM 218 RETURN0219 END 220 221 FUNCTION NF90_PUT_ATT 218 NF90_DEF_DIM = 0 219 END 220 221 FUNCTION NF90_PUT_ATT () 222 222 INTEGER :: NF90_PUT_ATT 223 RETURN0224 END 225 226 FUNCTION NF90_ENDDEF 223 NF90_PUT_ATT = 0 224 END 225 226 FUNCTION NF90_ENDDEF () 227 227 INTEGER :: NF90_ENDDEF 228 RETURN 0229 END 230 231 FUNCTION NF90_CLOSE 228 NF90_ENDDEF = 0 229 END 230 231 FUNCTION NF90_CLOSE () 232 232 INTEGER :: NF90_CLOSE 233 RETURN 0234 END 235 236 FUNCTION NF90_SYNC 233 NF90_CLOSE = 0 234 END 235 236 FUNCTION NF90_SYNC () 237 237 INTEGER :: NF90_SYNC 238 RETURN 0239 END 240 241 FUNCTION NF90_OPEN 238 NF90_SYNC = 0 239 END 240 241 FUNCTION NF90_OPEN () 242 242 INTEGER :: NF90_OPEN 243 RETURN 0244 END 245 246 FUNCTION NF90_INQ_VARID 243 NF90_OPEN = 0 244 END 245 246 FUNCTION NF90_INQ_VARID () 247 247 INTEGER :: NF90_INQ_VARID 248 RETURN 0249 END 250 251 FUNCTION NF90_GET_ATT 248 NF90_INQ_VARID = 0 249 END 250 251 FUNCTION NF90_GET_ATT () 252 252 INTEGER :: NF90_GET_ATT 253 RETURN 0254 END 255 256 #endif 257 253 NF90_GET_ATT = 0 254 END 255 256 #endif 257
Note: See TracChangeset
for help on using the changeset viewer.