Changeset 1263 for LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.F90
- Timestamp:
- Nov 17, 2009, 2:00:14 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.F90
r1157 r1263 5 5 6 6 interface nf95_put_var 7 module procedure nf95_put_var_1D_FourByteReal, & 7 module procedure nf95_put_var_FourByteReal, nf95_put_var_FourByteInt, & 8 nf95_put_var_1D_FourByteReal, nf95_put_var_1D_FourByteInt, & 8 9 nf95_put_var_2D_FourByteReal, nf95_put_var_3D_FourByteReal, & 9 10 nf95_put_var_4D_FourByteReal … … 19 20 contains 20 21 22 subroutine nf95_put_var_FourByteReal(ncid, varid, values, start, ncerr) 23 24 use netcdf, only: nf90_put_var 25 use handle_err_m, only: handle_err 26 27 integer, intent( in) :: ncid, varid 28 real, intent( in) :: values 29 integer, dimension(:), optional, intent( in) :: start 30 integer, intent(out), optional:: ncerr 31 32 ! Variable local to the procedure: 33 integer ncerr_not_opt 34 35 !------------------- 36 37 ncerr_not_opt = nf90_put_var(ncid, varid, values, start) 38 if (present(ncerr)) then 39 ncerr = ncerr_not_opt 40 else 41 call handle_err("nf95_put_var_FourByteReal", ncerr_not_opt, ncid, & 42 varid) 43 end if 44 45 end subroutine nf95_put_var_FourByteReal 46 47 !*********************** 48 49 subroutine nf95_put_var_FourByteInt(ncid, varid, values, start, ncerr) 50 51 use netcdf, only: nf90_put_var 52 use handle_err_m, only: handle_err 53 54 integer, intent( in) :: ncid, varid 55 integer, intent( in) :: values 56 integer, dimension(:), optional, intent( in) :: start 57 integer, intent(out), optional:: ncerr 58 59 ! Variable local to the procedure: 60 integer ncerr_not_opt 61 62 !------------------- 63 64 ncerr_not_opt = nf90_put_var(ncid, varid, values, start) 65 if (present(ncerr)) then 66 ncerr = ncerr_not_opt 67 else 68 call handle_err("nf95_put_var_FourByteInt", ncerr_not_opt, ncid, & 69 varid) 70 end if 71 72 end subroutine nf95_put_var_FourByteInt 73 74 !*********************** 75 21 76 subroutine nf95_put_var_1D_FourByteReal(ncid, varid, values, start, count, & 22 77 stride, map, ncerr) … … 45 100 46 101 end subroutine nf95_put_var_1D_FourByteReal 102 103 !*********************** 104 105 subroutine nf95_put_var_1D_FourByteInt(ncid, varid, values, start, count, & 106 stride, map, ncerr) 107 108 use netcdf, only: nf90_put_var 109 use handle_err_m, only: handle_err 110 111 integer, intent(in) :: ncid, varid 112 integer, intent(in) :: values(:) 113 integer, dimension(:), optional, intent(in) :: start, count, stride, map 114 integer, intent(out), optional:: ncerr 115 116 ! Variable local to the procedure: 117 integer ncerr_not_opt 118 119 !------------------- 120 121 ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count, stride, & 122 map) 123 if (present(ncerr)) then 124 ncerr = ncerr_not_opt 125 else 126 call handle_err("nf95_put_var_1D_FourByteInt", ncerr_not_opt, ncid, & 127 varid) 128 end if 129 130 end subroutine nf95_put_var_1D_FourByteInt 47 131 48 132 !***********************
Note: See TracChangeset
for help on using the changeset viewer.