| 1 | # -*- Mode: python -*- |
|---|
| 2 | ### =========================================================================== |
|---|
| 3 | ### |
|---|
| 4 | ### Compute runoff weights. |
|---|
| 5 | ### For LMDZ only. Not suitable for DYNAMICO |
|---|
| 6 | ### |
|---|
| 7 | ### =========================================================================== |
|---|
| 8 | ## |
|---|
| 9 | ## Warning, to install, configure, run, use any of Olivier Marti's |
|---|
| 10 | ## software or to read the associated documentation you'll need at least |
|---|
| 11 | ## one (1) brain in a reasonably working order. Lack of this implement |
|---|
| 12 | ## will void any warranties (either express or implied). |
|---|
| 13 | ## O. Marti assumes no responsability for errors, omissions, |
|---|
| 14 | ## data loss, or any other consequences caused directly or indirectly by |
|---|
| 15 | ## the usage of his software by incorrectly or partially configured |
|---|
| 16 | ## personal. |
|---|
| 17 | ## |
|---|
| 18 | # SVN information |
|---|
| 19 | __Author__ = "$Author$" |
|---|
| 20 | __Date__ = "$Date$" |
|---|
| 21 | __Revision__ = "$Revision$" |
|---|
| 22 | __Id__ = "$Id$" |
|---|
| 23 | __HeadURL__ = "$HeadURL$" |
|---|
| 24 | __SVN_Date__ = "$SVN_Date: $" |
|---|
| 25 | ## |
|---|
| 26 | |
|---|
| 27 | ## Modules |
|---|
| 28 | import netCDF4 |
|---|
| 29 | import numpy as np |
|---|
| 30 | import nemo |
|---|
| 31 | from scipy import ndimage |
|---|
| 32 | import sys, os, platform, argparse, textwrap, time |
|---|
| 33 | |
|---|
| 34 | ## Useful constants |
|---|
| 35 | zero = np.dtype('float64').type(0.0) |
|---|
| 36 | zone = np.dtype('float64').type(1.0) |
|---|
| 37 | epsfrac = np.dtype('float64').type(1.0E-10) |
|---|
| 38 | pi = np.pi |
|---|
| 39 | rad = pi/np.dtype('float64').type(180.0) # Conversion from degrees to radian |
|---|
| 40 | ra = np.dtype('float64').type(6371229.0) # Earth radius |
|---|
| 41 | |
|---|
| 42 | ## Functions |
|---|
| 43 | def geodist (plon1, plat1, plon2, plat2) : |
|---|
| 44 | """Distance between two points (on sphere)""" |
|---|
| 45 | zs = np.sin (rad*plat1) * np.sin (rad*plat2) + np.cos (rad*plat1) * np.cos (rad*plat2) * np.cos(rad*(plon2-plon1)) |
|---|
| 46 | zs = np.maximum (-zone, np.minimum (zone, zs)) |
|---|
| 47 | geodist = np.arccos (zs) |
|---|
| 48 | return geodist |
|---|
| 49 | |
|---|
| 50 | ### ===== Reading command line parameters ================================================== |
|---|
| 51 | # Creating a parser |
|---|
| 52 | parser = argparse.ArgumentParser ( |
|---|
| 53 | description = """Compute calving weights""", |
|---|
| 54 | epilog='-------- End of the help message --------') |
|---|
| 55 | |
|---|
| 56 | # Adding arguments |
|---|
| 57 | parser.add_argument ('--oce' , help='oce model name', type=str, default='eORCA1.2', choices=['ORCA2.3', 'eORCA1.2', 'eORCA025', 'eORCA025.1'] ) |
|---|
| 58 | parser.add_argument ('--atm' , help='atm model name', type=str, default='LMD9695' ) |
|---|
| 59 | parser.add_argument ('--atmCoastWidth', help='width of the coastal band in atmosphere (in grid points)', type=int, default=1 ) |
|---|
| 60 | parser.add_argument ('--oceCoastWidth', help='width of the coastal band in ocean (in grid points)' , type=int, default=2 ) |
|---|
| 61 | parser.add_argument ('--atmQuantity' , help='Quantity if atm provides quantities (m/s), Surfacic if atm provided flux (m/s/m2)' , type=str, default='Quantity', choices=['Quantity', 'Surfacic'] ) |
|---|
| 62 | parser.add_argument ('--oceQuantity' , help='Quantity if oce requires quantities (ks/s), Surfacic if oce requires flux (m/s/m2)' , type=str, default='Surfacic', choices=['Quantity', 'Surfacic'] ) |
|---|
| 63 | parser.add_argument ('--searchRadius' , help='max distance to connect a land point to an ocean point (in km)', type=float, default=600.0 ) |
|---|
| 64 | parser.add_argument ('--grids' , help='grids file name', default='grids.nc' ) |
|---|
| 65 | parser.add_argument ('--areas' , help='masks file name', default='areas.nc' ) |
|---|
| 66 | parser.add_argument ('--masks' , help='areas file name', default='masks.nc' ) |
|---|
| 67 | parser.add_argument ('--o2a' , help='o2a file name' , default='o2a.nc' ) |
|---|
| 68 | parser.add_argument ('--output', help='output rmp file name', default='rmp_tlmd_to_torc_runoff.nc' ) |
|---|
| 69 | parser.add_argument ('--fmt' , help='NetCDF file format, using nco syntax', default='netcdf4', choices=['classic', 'netcdf3', '64bit', '64bit_data', '64bit_data', 'netcdf4', 'netcdf4_classsic'] ) |
|---|
| 70 | parser.add_argument ('--ocePerio' , help='periodicity of ocean grid', type=int, default=0 ) |
|---|
| 71 | |
|---|
| 72 | # Parse command line |
|---|
| 73 | myargs = parser.parse_args() |
|---|
| 74 | |
|---|
| 75 | # |
|---|
| 76 | grids = myargs.grids |
|---|
| 77 | areas = myargs.areas |
|---|
| 78 | masks = myargs.masks |
|---|
| 79 | o2a = myargs.o2a |
|---|
| 80 | |
|---|
| 81 | # Model Names |
|---|
| 82 | atm_Name = myargs.atm |
|---|
| 83 | oce_Name = myargs.oce |
|---|
| 84 | # Width of the coastal band (land points) in the atmopshere |
|---|
| 85 | atmCoastWidth = myargs.atmCoastWidth |
|---|
| 86 | # Width of the coastal band (ocean points) in the ocean |
|---|
| 87 | oceCoastWidth = myargs.oceCoastWidth |
|---|
| 88 | searchRadius = myargs.searchRadius * 1000.0 # From km to meters |
|---|
| 89 | # Netcdf format |
|---|
| 90 | if myargs.fmt == 'classic' : FmtNetcdf = 'CLASSIC' |
|---|
| 91 | if myargs.fmt == 'netcdf3' : FmtNetcdf = 'CLASSIC' |
|---|
| 92 | if myargs.fmt == '64bit' : FmtNetcdf = 'NETCDF3_64BIT_OFFSET' |
|---|
| 93 | if myargs.fmt == '64bit_data' : FmtNetcdf = 'NETCDF3_64BIT_DATA' |
|---|
| 94 | if myargs.fmt == '64bit_offset' : FmtNetcdf = 'NETCDF3_64BIT_OFFSET' |
|---|
| 95 | if myargs.fmt == 'netcdf4' : FmtNetcdf = 'NETCDF4' |
|---|
| 96 | if myargs.fmt == 'netcdf4_classic' : FmtNetcdf = 'NETCDF4_CLASSIC' |
|---|
| 97 | |
|---|
| 98 | # |
|---|
| 99 | if atm_Name.find('LMD') >= 0 : atm_n = 'lmd' ; atmDomainType = 'rectilinear' |
|---|
| 100 | if atm_Name.find('ICO') >= 0 : atm_n = 'ico' ; atmDomainType = 'unstructured' |
|---|
| 101 | |
|---|
| 102 | print ('atmQuantity : ' + str (myargs.atmQuantity) ) |
|---|
| 103 | print ('oceQuantity : ' + str (myargs.oceQuantity) ) |
|---|
| 104 | |
|---|
| 105 | # Ocean grid periodicity |
|---|
| 106 | oce_perio=myargs.ocePerio |
|---|
| 107 | |
|---|
| 108 | ### Read coordinates of all models |
|---|
| 109 | ### |
|---|
| 110 | |
|---|
| 111 | diaFile = netCDF4.Dataset ( o2a ) |
|---|
| 112 | gridFile = netCDF4.Dataset ( grids ) |
|---|
| 113 | areaFile = netCDF4.Dataset ( areas ) |
|---|
| 114 | maskFile = netCDF4.Dataset ( masks ) |
|---|
| 115 | |
|---|
| 116 | o2aFrac = diaFile ['OceFrac'][:].squeeze() |
|---|
| 117 | o2aFrac = np.where ( np.abs(o2aFrac) < 1E10, o2aFrac, 0.0) |
|---|
| 118 | |
|---|
| 119 | (atm_nvertex, atm_jpj, atm_jpi) = gridFile['t'+atm_n+'.clo'][:].shape |
|---|
| 120 | atm_grid_size = atm_jpj*atm_jpi |
|---|
| 121 | atm_grid_rank = len(gridFile['t'+atm_n+'.lat'][:].shape) |
|---|
| 122 | |
|---|
| 123 | atm_grid_center_lat = gridFile['t'+atm_n+'.lat'][:].ravel() |
|---|
| 124 | atm_grid_center_lon = gridFile['t'+atm_n+'.lon'][:].ravel() |
|---|
| 125 | atm_grid_corner_lat = np.reshape ( gridFile['t'+atm_n+'.cla'][:], (atm_nvertex, atm_grid_size) ) |
|---|
| 126 | atm_grid_corner_lon = np.reshape ( gridFile['t'+atm_n+'.clo'][:], (atm_nvertex, atm_grid_size) ) |
|---|
| 127 | atm_grid_area = areaFile['t'+atm_n+'.srf'][:].ravel() |
|---|
| 128 | atm_grid_imask = 1-maskFile['t'+atm_n+'.msk'][:].squeeze().ravel() |
|---|
| 129 | atm_grid_dims = gridFile['t'+atm_n+'.lat'][:].shape |
|---|
| 130 | |
|---|
| 131 | atm_perio = 0 |
|---|
| 132 | atm_grid_pmask = atm_grid_imask |
|---|
| 133 | atm_address = np.arange(atm_jpj*atm_jpi) |
|---|
| 134 | |
|---|
| 135 | |
|---|
| 136 | (oce_nvertex, oce_jpj, oce_jpi) = gridFile['torc.cla'][:].shape ; jpon=oce_jpj*oce_jpj |
|---|
| 137 | oce_grid_size = oce_jpj*oce_jpi |
|---|
| 138 | oce_grid_rank = len(gridFile['torc.lat'][:].shape) |
|---|
| 139 | |
|---|
| 140 | oce_grid_center_lat = gridFile['torc.lat'][:].ravel() |
|---|
| 141 | oce_grid_center_lon = gridFile['torc.lon'][:].ravel() |
|---|
| 142 | oce_grid_corner_lat = np.reshape( gridFile['torc.cla'][:], (oce_nvertex, oce_grid_size) ) |
|---|
| 143 | oce_grid_corner_lon = np.reshape( gridFile['torc.clo'][:], (oce_nvertex, oce_grid_size) ) |
|---|
| 144 | oce_grid_area = areaFile['torc.srf'][:].ravel() |
|---|
| 145 | oce_grid_imask = 1-maskFile['torc.msk'][:].ravel() |
|---|
| 146 | oce_grid_dims = gridFile['torc.lat'][:].shape |
|---|
| 147 | if oce_perio == 0 : |
|---|
| 148 | if oce_jpi == 182 : oce_perio = 4 # ORCA 2 |
|---|
| 149 | if oce_jpi == 362 : oce_perio = 6 # ORCA 1 |
|---|
| 150 | if oce_jpi == 1442 : oce_perio = 6 # ORCA 025 |
|---|
| 151 | print(f"oce_perio = {oce_perio}") |
|---|
| 152 | oce_grid_pmask = nemo.lbc_mask (np.reshape(oce_grid_imask, (oce_jpj,oce_jpi)), 'T', oce_perio).ravel() |
|---|
| 153 | oce_address = np.arange(oce_jpj*oce_jpi) |
|---|
| 154 | |
|---|
| 155 | ## Fill closed sea with image processing library |
|---|
| 156 | oce_grid_imask2D = np.reshape(oce_grid_pmask,(oce_jpj,oce_jpi)) |
|---|
| 157 | oce_grid_imask2D = nemo.lbc_mask ( 1-ndimage.binary_fill_holes (1-nemo.lbc(oce_grid_imask2D, nperio=oce_perio, cd_type='T')), nperio=oce_perio, cd_type='T' ) |
|---|
| 158 | oce_grid_imask = oce_grid_imask2D.ravel() |
|---|
| 159 | ## |
|---|
| 160 | print ("Computes an ocean coastal band") |
|---|
| 161 | |
|---|
| 162 | oceLand2D = np.reshape ( np.where (oce_grid_pmask[:] < 0.5, True, False), (oce_jpj, oce_jpi) ) |
|---|
| 163 | oceOcean2D = np.reshape ( np.where (oce_grid_pmask[:] > 0.5, True, False), (oce_jpj, oce_jpi) ) |
|---|
| 164 | |
|---|
| 165 | NNocean = 1+2*oceCoastWidth |
|---|
| 166 | oceOceanFiltered2D = ndimage.uniform_filter(oceOcean2D.astype(float), size=NNocean) |
|---|
| 167 | oceCoast2D = np.where (oceOceanFiltered2D<(1.0-0.5/(NNocean**2)),True,False) & oceOcean2D |
|---|
| 168 | oceCoast2D = nemo.lbc_mask (np.reshape(oceCoast2D,(oce_jpj,oce_jpi)), oce_perio, 'T').ravel() |
|---|
| 169 | |
|---|
| 170 | oceOceanFiltered = oceOceanFiltered2D.ravel() |
|---|
| 171 | oceLand = oceLand2D.ravel() |
|---|
| 172 | oceOcean = oceOcean2D.ravel() |
|---|
| 173 | oceCoast = oceCoast2D.ravel() |
|---|
| 174 | |
|---|
| 175 | print ('Number of points in oceLand : ' + str(oceLand.sum()) ) |
|---|
| 176 | print ('Number of points in oceOcean : ' + str(oceOcean.sum()) ) |
|---|
| 177 | print ('Number of points in oceCoast : ' + str(oceCoast.sum()) ) |
|---|
| 178 | |
|---|
| 179 | # Arrays with coastal points only |
|---|
| 180 | oceCoast_grid_center_lon = oce_grid_center_lon[oceCoast] |
|---|
| 181 | oceCoast_grid_center_lat = oce_grid_center_lat[oceCoast] |
|---|
| 182 | oceCoast_grid_area = oce_grid_area [oceCoast] |
|---|
| 183 | oceCoast_grid_imask = oce_grid_imask [oceCoast] |
|---|
| 184 | oceCoast_grid_pmask = oce_grid_pmask [oceCoast] |
|---|
| 185 | oceCoast_address = oce_address [oceCoast] |
|---|
| 186 | |
|---|
| 187 | print ("Computes an atmosphere coastal band " ) |
|---|
| 188 | atmLand = np.where (o2aFrac[:] < epsfrac , True, False) |
|---|
| 189 | atmLandFrac = np.where (o2aFrac[:] < zone-epsfrac , True, False) |
|---|
| 190 | atmFrac = np.where (o2aFrac[:] > epsfrac , True, False) & np.where (o2aFrac[:] < (zone-epsfrac), True, False) |
|---|
| 191 | atmOcean = np.where (o2aFrac[:] < (zone-epsfrac), True, False) |
|---|
| 192 | atmOceanFrac = np.where (o2aFrac[:] > epsfrac , True, False) |
|---|
| 193 | |
|---|
| 194 | ## For LMDZ only !! |
|---|
| 195 | if atmDomainType == 'rectilinear' : |
|---|
| 196 | NNatm = 1+2*atmCoastWidth |
|---|
| 197 | atmLand2D = np.reshape ( atmLand, ( atm_jpj, atm_jpi) ) |
|---|
| 198 | |
|---|
| 199 | atmLandFiltered2D = ndimage.uniform_filter(atmLand2D.astype(float), size=NNatm) |
|---|
| 200 | atmCoast2D = np.where (atmLandFiltered2D<(1.0-0.5/(NNatm**2)),True,False) & atmLandFrac |
|---|
| 201 | |
|---|
| 202 | atmLandFiltered = atmLandFiltered2D.ravel() |
|---|
| 203 | atmCoast = atmCoast2D.ravel() |
|---|
| 204 | |
|---|
| 205 | print ('Number of points in atmLand : ' + str(atmLand.sum()) ) |
|---|
| 206 | print ('Number of points in atmOcean : ' + str(atmOcean.sum()) ) |
|---|
| 207 | print ('Number of points in atmCoast : ' + str(atmCoast.sum()) ) |
|---|
| 208 | |
|---|
| 209 | else : |
|---|
| 210 | atmCoast = atmFrac |
|---|
| 211 | |
|---|
| 212 | |
|---|
| 213 | # Arrays with coastal points only |
|---|
| 214 | atmCoast_grid_center_lon = atm_grid_center_lon[atmCoast] |
|---|
| 215 | atmCoast_grid_center_lat = atm_grid_center_lat[atmCoast] |
|---|
| 216 | atmCoast_grid_area = atm_grid_area [atmCoast] |
|---|
| 217 | atmCoast_grid_imask = atm_grid_imask [atmCoast] |
|---|
| 218 | atmCoast_grid_pmask = atm_grid_pmask [atmCoast] |
|---|
| 219 | atmCoast_address = atm_address [atmCoast] |
|---|
| 220 | |
|---|
| 221 | # Initialisations before the loop |
|---|
| 222 | remap_matrix = np.empty ( shape=(0), dtype=np.float64 ) |
|---|
| 223 | atm_address = np.empty ( shape=(0), dtype=np.int32 ) |
|---|
| 224 | oce_address = np.empty ( shape=(0), dtype=np.int32 ) |
|---|
| 225 | |
|---|
| 226 | ## Loop on atmosphere coastal points |
|---|
| 227 | for ja in np.arange(len(atmCoast_grid_pmask)) : |
|---|
| 228 | z_dist = geodist ( atmCoast_grid_center_lon[ja], atmCoast_grid_center_lat[ja], oceCoast_grid_center_lon, oceCoast_grid_center_lat) |
|---|
| 229 | z_mask = np.where ( z_dist*ra < searchRadius, True, False) |
|---|
| 230 | num_links = np.int(z_mask.sum()) |
|---|
| 231 | if num_links == 0 : continue |
|---|
| 232 | z_area = oceCoast_grid_area[z_mask].sum() |
|---|
| 233 | poids = np.ones ((num_links),dtype=np.float64) / z_area |
|---|
| 234 | if myargs.atmQuantity == 'Surfacic' : poids = poids * atm_grid_area[ja] |
|---|
| 235 | if myargs.oceQuantity == 'Quantity' : poids = poids * oceCoast_grid_area[z_mask] |
|---|
| 236 | if ja % (len(atmCoast_grid_pmask)//50) == 0 : # Control print |
|---|
| 237 | print ( 'ja:{:8d}, num_links:{:8d}, z_area:{:8.4e}, atm area:{:8.4e}, weights sum:{:8.4e} '.format(ja, num_links, z_area, atm_grid_area[ja], poids.sum() ) ) |
|---|
| 238 | # |
|---|
| 239 | matrix_local = poids |
|---|
| 240 | atm_address_local = np.ones(num_links, dtype=np.int32 ) * atmCoast_address[ja] |
|---|
| 241 | # Address on destination grid |
|---|
| 242 | oce_address_local = oceCoast_address[z_mask] |
|---|
| 243 | # Append to global arrays |
|---|
| 244 | remap_matrix = np.append ( remap_matrix, matrix_local ) |
|---|
| 245 | atm_address = np.append ( atm_address , atm_address_local ) |
|---|
| 246 | oce_address = np.append ( oce_address , oce_address_local ) |
|---|
| 247 | |
|---|
| 248 | print ('End of loop') |
|---|
| 249 | |
|---|
| 250 | num_links = remap_matrix.shape[0] |
|---|
| 251 | |
|---|
| 252 | ### Output file |
|---|
| 253 | runoff = myargs.output |
|---|
| 254 | f_runoff = netCDF4.Dataset ( runoff, 'w', format=FmtNetcdf ) |
|---|
| 255 | print ('Output file: ' + runoff ) |
|---|
| 256 | |
|---|
| 257 | f_runoff.Conventions = "CF-1.6" |
|---|
| 258 | f_runoff.source = "IPSL Earth system model" |
|---|
| 259 | f_runoff.group = "ICMC IPSL Climate Modelling Center" |
|---|
| 260 | f_runoff.Institution = "IPSL https.//www.ipsl.fr" |
|---|
| 261 | f_runoff.Ocean = oce_Name + " https://www.nemo-ocean.eu" |
|---|
| 262 | f_runoff.Atmosphere = atm_Name + " http://lmdz.lmd.jussieu.fr" |
|---|
| 263 | f_runoff.associatedFiles = grids + " " + areas + " " + masks |
|---|
| 264 | f_runoff.directory = os.getcwd () |
|---|
| 265 | f_runoff.description = "Generated with RunoffWeights.py" |
|---|
| 266 | f_runoff.title = runoff |
|---|
| 267 | f_runoff.Program = "Generated by " + sys.argv[0] + " with flags " + str(sys.argv[1:]) |
|---|
| 268 | f_runoff.atmCoastWidth = str(atmCoastWidth) + " grid points" |
|---|
| 269 | f_runoff.oceCoastWidth = str(oceCoastWidth) + " grid points" |
|---|
| 270 | f_runoff.searchRadius = str(searchRadius/1000.) + " km" |
|---|
| 271 | f_runoff.atmQuantity = myargs.atmQuantity |
|---|
| 272 | f_runoff.oceQuantity = myargs.oceQuantity |
|---|
| 273 | f_runoff.gridsFile = grids |
|---|
| 274 | f_runoff.areasFile = areas |
|---|
| 275 | f_runoff.masksFile = masks |
|---|
| 276 | f_runoff.o2aFile = o2a |
|---|
| 277 | f_runoff.timeStamp = time.asctime() |
|---|
| 278 | f_runoff.HOSTNAME = platform.node() |
|---|
| 279 | #f_runoff.LOGNAME = os.getlogin() |
|---|
| 280 | f_runoff.Python = "Python version " + platform.python_version() |
|---|
| 281 | f_runoff.OS = platform.system() |
|---|
| 282 | f_runoff.release = platform.release() |
|---|
| 283 | f_runoff.hardware = platform.machine() |
|---|
| 284 | f_runoff.conventions = "SCRIP" |
|---|
| 285 | f_runoff.source_grid = "curvilinear" |
|---|
| 286 | f_runoff.dest_grid = "curvilinear" |
|---|
| 287 | f_runoff.Model = "IPSL CM6" |
|---|
| 288 | f_runoff.SVN_Author = "$Author$" |
|---|
| 289 | f_runoff.SVN_Date = "$Date$" |
|---|
| 290 | f_runoff.SVN_Revision = "$Revision$" |
|---|
| 291 | f_runoff.SVN_Id = "$Id$" |
|---|
| 292 | f_runoff.SVN_HeadURL = "$HeadURL$" |
|---|
| 293 | |
|---|
| 294 | d_num_links = f_runoff.createDimension ('num_links' , num_links ) |
|---|
| 295 | d_num_wgts = f_runoff.createDimension ('num_wgts' , 1 ) |
|---|
| 296 | |
|---|
| 297 | d_atm_grid_size = f_runoff.createDimension ('src_grid_size' , atm_grid_size ) |
|---|
| 298 | d_atm_grid_corners = f_runoff.createDimension ('src_grid_corners', atm_grid_corner_lon.shape[0] ) |
|---|
| 299 | d_atm_grid_rank = f_runoff.createDimension ('src_grid_rank' , atm_grid_rank ) |
|---|
| 300 | |
|---|
| 301 | d_oce_grid_size = f_runoff.createDimension ('dst_grid_size' , oce_grid_size ) |
|---|
| 302 | d_oce_grid_corners = f_runoff.createDimension ('dst_grid_corners', oce_grid_corner_lon.shape[0] ) |
|---|
| 303 | d_oce_grid_rank = f_runoff.createDimension ('dst_grid_rank' , oce_grid_rank ) |
|---|
| 304 | |
|---|
| 305 | v_remap_matrix = f_runoff.createVariable ( 'remap_matrix', 'f8', ('num_links', 'num_wgts') ) |
|---|
| 306 | |
|---|
| 307 | v_atm_address = f_runoff.createVariable ( 'src_address' , 'i4', ('num_links',) ) |
|---|
| 308 | v_atm_address.convention = "Fortran style addressing, starting at 1" |
|---|
| 309 | v_oce_address = f_runoff.createVariable ( 'dst_address' , 'i4', ('num_links',) ) |
|---|
| 310 | v_oce_address.convention = "Fortran style addressing, starting at 1" |
|---|
| 311 | |
|---|
| 312 | v_remap_matrix[:] = remap_matrix |
|---|
| 313 | v_atm_address [:] = atm_address + 1 # OASIS uses Fortran style indexing, starting at one |
|---|
| 314 | v_oce_address [:] = oce_address + 1 |
|---|
| 315 | |
|---|
| 316 | v_atm_grid_dims = f_runoff.createVariable ( 'src_grid_dims' , 'i4', ('src_grid_rank',) ) |
|---|
| 317 | v_atm_grid_center_lon = f_runoff.createVariable ( 'src_grid_center_lon', 'i4', ('src_grid_size',) ) |
|---|
| 318 | v_atm_grid_center_lat = f_runoff.createVariable ( 'src_grid_center_lat', 'i4', ('src_grid_size',) ) |
|---|
| 319 | v_atm_grid_center_lon.units='degrees_east' ; v_atm_grid_center_lon.long_name='Longitude' ; v_atm_grid_center_lon.long_name='longitude' ; v_atm_grid_center_lon.bounds="src_grid_corner_lon" |
|---|
| 320 | v_atm_grid_center_lat.units='degrees_north' ; v_atm_grid_center_lat.long_name='Latitude' ; v_atm_grid_center_lat.long_name='latitude ' ; v_atm_grid_center_lat.bounds="src_grid_corner_lat" |
|---|
| 321 | v_atm_grid_corner_lon = f_runoff.createVariable ( 'src_grid_corner_lon', 'f8', ('src_grid_size', 'src_grid_corners') ) |
|---|
| 322 | v_atm_grid_corner_lat = f_runoff.createVariable ( 'src_grid_corner_lat', 'f8', ('src_grid_size', 'src_grid_corners') ) |
|---|
| 323 | v_atm_grid_corner_lon.units="degrees_east" |
|---|
| 324 | v_atm_grid_corner_lat.units="degrees_north" |
|---|
| 325 | v_atm_grid_area = f_runoff.createVariable ( 'src_grid_area' , 'f8', ('src_grid_size',) ) |
|---|
| 326 | v_atm_grid_area.long_name="Grid area" ; v_atm_grid_area.standard_name="cell_area" ; v_atm_grid_area.units="m2" |
|---|
| 327 | v_atm_grid_imask = f_runoff.createVariable ( 'src_grid_imask' , 'i4', ('src_grid_size',) ) |
|---|
| 328 | v_atm_grid_imask.long_name="Land-sea mask" ; v_atm_grid_imask.units="Land:1, Ocean:0" |
|---|
| 329 | v_atm_grid_pmask = f_runoff.createVariable ( 'src_grid_pmask' , 'i4', ('src_grid_size',) ) |
|---|
| 330 | v_atm_grid_pmask.long_name="Land-sea mask (periodicity removed)" ; v_atm_grid_pmask.units="Land:1, Ocean:0" |
|---|
| 331 | |
|---|
| 332 | v_atm_grid_dims [:] = atm_grid_dims |
|---|
| 333 | v_atm_grid_center_lon[:] = atm_grid_center_lon[:] |
|---|
| 334 | v_atm_grid_center_lat[:] = atm_grid_center_lat[:] |
|---|
| 335 | v_atm_grid_corner_lon[:] = atm_grid_corner_lon |
|---|
| 336 | v_atm_grid_corner_lat[:] = atm_grid_corner_lat |
|---|
| 337 | v_atm_grid_area [:] = atm_grid_area[:] |
|---|
| 338 | v_atm_grid_imask [:] = atm_grid_imask[:] |
|---|
| 339 | v_atm_grid_pmask [:] = atm_grid_pmask[:] |
|---|
| 340 | |
|---|
| 341 | # -- |
|---|
| 342 | |
|---|
| 343 | v_oce_grid_dims = f_runoff.createVariable ( 'dst_grid_dims' , 'i4', ('dst_grid_rank',) ) |
|---|
| 344 | v_oce_grid_center_lon = f_runoff.createVariable ( 'dst_grid_center_lon', 'i4', ('dst_grid_size',) ) |
|---|
| 345 | v_oce_grid_center_lat = f_runoff.createVariable ( 'dst_grid_center_lat', 'i4', ('dst_grid_size',) ) |
|---|
| 346 | v_oce_grid_center_lon.units='degrees_east' ; v_oce_grid_center_lon.long_name='Longitude' ; v_oce_grid_center_lon.long_name='longitude' ; v_oce_grid_center_lon.bounds="dst_grid_corner_lon" |
|---|
| 347 | v_oce_grid_center_lat.units='degrees_north' ; v_oce_grid_center_lat.long_name='Latitude' ; v_oce_grid_center_lat.long_name='latitude' ; v_oce_grid_center_lat.bounds="dst_grid_corner_lat" |
|---|
| 348 | v_oce_grid_corner_lon = f_runoff.createVariable ( 'dst_grid_corner_lon', 'f8', ('dst_grid_size', 'dst_grid_corners') ) |
|---|
| 349 | v_oce_grid_corner_lat = f_runoff.createVariable ( 'dst_grid_corner_lat', 'f8', ('dst_grid_size', 'dst_grid_corners') ) |
|---|
| 350 | v_oce_grid_corner_lon.units="degrees_east" |
|---|
| 351 | v_oce_grid_corner_lat.units="degrees_north" |
|---|
| 352 | v_oce_grid_area = f_runoff.createVariable ( 'dst_grid_area' , 'f8', ('dst_grid_size',) ) |
|---|
| 353 | v_oce_grid_area.long_name="Grid area" ; v_oce_grid_area.standard_name="cell_area" ; v_oce_grid_area.units="m2" |
|---|
| 354 | v_oce_grid_imask = f_runoff.createVariable ( 'dst_grid_imask' , 'i4', ('dst_grid_size',) ) |
|---|
| 355 | v_oce_grid_imask.long_name="Land-sea mask" ; v_oce_grid_imask.units="Land:1, Ocean:0" |
|---|
| 356 | v_oce_grid_pmask = f_runoff.createVariable ( 'dst_grid_pmask' , 'i4', ('dst_grid_size',) ) |
|---|
| 357 | v_oce_grid_pmask.long_name="Land-sea mask (periodicity removed)" ; v_oce_grid_pmask.units="Land:1, Ocean:0" |
|---|
| 358 | |
|---|
| 359 | v_oce_grid_dims [:] = oce_grid_dims |
|---|
| 360 | v_oce_grid_center_lon[:] = oce_grid_center_lon[:] |
|---|
| 361 | v_oce_grid_center_lat[:] = oce_grid_center_lat[:] |
|---|
| 362 | v_oce_grid_corner_lon[:] = oce_grid_corner_lon |
|---|
| 363 | v_oce_grid_corner_lat[:] = oce_grid_corner_lon |
|---|
| 364 | v_oce_grid_area [:] = oce_grid_area[:] |
|---|
| 365 | v_oce_grid_imask [:] = oce_grid_imask[:] |
|---|
| 366 | v_oce_grid_pmask [:] = oce_grid_pmask[:] |
|---|
| 367 | |
|---|
| 368 | v_atm_lon_addressed = f_runoff.createVariable ( 'src_lon_addressed' , 'f8', ('num_links',) ) |
|---|
| 369 | v_atm_lat_addressed = f_runoff.createVariable ( 'src_lat_addressed' , 'f8', ('num_links',) ) |
|---|
| 370 | v_atm_area_addressed = f_runoff.createVariable ( 'src_area_addressed' , 'f8', ('num_links',) ) |
|---|
| 371 | v_atm_imask_addressed = f_runoff.createVariable ( 'src_imask_addressed', 'i4', ('num_links',) ) |
|---|
| 372 | v_atm_pmask_addressed = f_runoff.createVariable ( 'src_pmask_addressed', 'i4', ('num_links',) ) |
|---|
| 373 | |
|---|
| 374 | v_oce_lon_addressed = f_runoff.createVariable ( 'dst_lon_addressed' , 'f8', ('num_links',) ) |
|---|
| 375 | v_oce_lat_addressed = f_runoff.createVariable ( 'dst_lat_addressed' , 'f8', ('num_links',) ) |
|---|
| 376 | v_oce_area_addressed = f_runoff.createVariable ( 'dst_area_addressed' , 'f8', ('num_links',) ) |
|---|
| 377 | v_oce_imask_addressed = f_runoff.createVariable ( 'dst_imask_addressed', 'i4', ('num_links',) ) |
|---|
| 378 | v_oce_pmask_addressed = f_runoff.createVariable ( 'dst_pmask_addressed', 'i4', ('num_links',) ) |
|---|
| 379 | |
|---|
| 380 | v_atm_lon_addressed.long_name="Longitude" ; v_atm_lon_addressed.standard_name="longitude" ; v_atm_lon_addressed.units="degrees_east" |
|---|
| 381 | v_atm_lat_addressed.long_name="Latitude" ; v_atm_lat_addressed.standard_name="latitude" ; v_atm_lat_addressed.units="degrees_north" |
|---|
| 382 | v_atm_lon_addressed [:] = atm_grid_center_lon[atm_address] |
|---|
| 383 | v_atm_lat_addressed [:] = atm_grid_center_lat[atm_address] |
|---|
| 384 | v_atm_area_addressed [:] = atm_grid_area[atm_address] |
|---|
| 385 | v_atm_imask_addressed[:] = 1-atm_grid_imask[atm_address] |
|---|
| 386 | v_atm_pmask_addressed[:] = 1-atm_grid_pmask[atm_address] |
|---|
| 387 | |
|---|
| 388 | v_oce_lon_addressed.long_name="Longitude" ; v_oce_lon_addressed.standard_name="longitude" ; v_oce_lon_addressed.units="degrees_east" |
|---|
| 389 | v_oce_lat_addressed.long_name="Latitude" ; v_oce_lat_addressed.standard_name="latitude" ; v_oce_lat_addressed.units="degrees_north" |
|---|
| 390 | v_oce_lon_addressed [:] = oce_grid_center_lon[oce_address] |
|---|
| 391 | v_oce_lat_addressed [:] = oce_grid_center_lat[oce_address]#.ravel() |
|---|
| 392 | v_oce_area_addressed [:] = oce_grid_area[oce_address] |
|---|
| 393 | v_oce_imask_addressed[:] = 1-oce_grid_imask[oce_address] |
|---|
| 394 | v_oce_pmask_addressed[:] = 1-oce_grid_pmask[oce_address] |
|---|
| 395 | |
|---|
| 396 | if atmDomainType == 'rectilinear' : |
|---|
| 397 | v_atmLand = f_runoff.createVariable ( 'atmLand' , 'i4', ('src_grid_size',) ) |
|---|
| 398 | v_atmLandFiltered = f_runoff.createVariable ( 'atmLandFiltered', 'f4', ('src_grid_size',) ) |
|---|
| 399 | v_atmLandFrac = f_runoff.createVariable ( 'atmLandFrac' , 'i4', ('src_grid_size',) ) |
|---|
| 400 | v_atmFrac = f_runoff.createVariable ( 'atmFrac' , 'i4', ('src_grid_size',) ) |
|---|
| 401 | v_atmOcean = f_runoff.createVariable ( 'atmOcean' , 'i4', ('src_grid_size',) ) |
|---|
| 402 | v_atmOceanFrac = f_runoff.createVariable ( 'atmOceanFrac' , 'i4', ('src_grid_size',) ) |
|---|
| 403 | |
|---|
| 404 | v_atmLand[:] = atmLand |
|---|
| 405 | v_atmLandFrac[:] = atmLandFrac |
|---|
| 406 | v_atmLandFiltered[:] = atmLandFiltered |
|---|
| 407 | v_atmFrac[:] = atmFrac |
|---|
| 408 | v_atmOcean[:] = atmOcean |
|---|
| 409 | v_atmOceanFrac[:] = atmOceanFrac |
|---|
| 410 | |
|---|
| 411 | v_atmCoast = f_runoff.createVariable ( 'atmCoast' , 'i4', ('src_grid_size',) ) |
|---|
| 412 | v_atmCoast[:] = atmCoast |
|---|
| 413 | |
|---|
| 414 | v_oceLand = f_runoff.createVariable ( 'oceLand' , 'i4', ('dst_grid_size',) ) |
|---|
| 415 | v_oceOcean = f_runoff.createVariable ( 'oceOcean' , 'i4', ('dst_grid_size',) ) |
|---|
| 416 | v_oceOceanFiltered = f_runoff.createVariable ( 'oceOceanFiltered', 'f4', ('dst_grid_size',) ) |
|---|
| 417 | v_oceCoast = f_runoff.createVariable ( 'oceCoast' , 'i4', ('dst_grid_size',) ) |
|---|
| 418 | |
|---|
| 419 | v_oceLand[:] = oceLand |
|---|
| 420 | v_oceOcean[:] = oceOcean |
|---|
| 421 | v_oceOceanFiltered[:] = oceOceanFiltered |
|---|
| 422 | v_oceCoast[:] = oceCoast |
|---|
| 423 | |
|---|
| 424 | f_runoff.sync () |
|---|
| 425 | |
|---|
| 426 | ## |
|---|
| 427 | f_runoff.close() |
|---|
| 428 | |
|---|
| 429 | print ('The end') |
|---|
| 430 | |
|---|
| 431 | ## ====================================================================================== |
|---|
