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