- Timestamp:
- 2020-10-19T10:48:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/SWE/diawri.F90
r13295 r13630 184 184 & + e3t(ji+1,jj,1,Kmm) * e1e2t(ji+1,jj) ) * r1_e1e2u(ji,jj) 185 185 END_2D 186 #if defined key_mpi3 187 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'U', 1._wp ) 188 #else 186 189 CALL lbc_lnk( 'diawri', z2d, 'U', 1._wp ) 190 #endif 187 191 CALL iom_put( "hu", z2d ) 188 192 ENDIF … … 194 198 & + e3t(ji,jj ,1,Kmm) * e1e2t(ji,jj ) ) * r1_e1e2v(ji,jj) 195 199 END_2D 200 #if defined key_mpi3 201 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'V', 1._wp ) 202 #else 196 203 CALL lbc_lnk( 'diawri', z2d, 'V', 1._wp ) 204 #endif 197 205 CALL iom_put( "hv", z2d ) 198 206 ENDIF … … 205 213 END_2D 206 214 z2d(:,:) = z2d(:,:) * ssfmask(:,:) 215 #if defined key_mpi3 216 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1._wp ) 217 #else 207 218 CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp ) 219 #endif 208 220 CALL iom_put( "hf", z2d ) 209 221 ENDIF … … 224 236 ! 225 237 END_2D 238 #if defined key_mpi3 239 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 240 #else 226 241 CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 242 #endif 227 243 CALL iom_put( "taubot", z2d ) 228 244 ENDIF … … 243 259 END_2D 244 260 ! 261 #if defined key_mpi3 262 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'T', 1. ) 263 #else 245 264 CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 265 #endif 246 266 IF ( iom_use("sKE" ) ) CALL iom_put( "sKE" , z2d ) 247 267 … … 259 279 END_2D 260 280 ! 281 #if defined key_mpi3 282 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 283 #else 261 284 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 285 #endif 262 286 CALL iom_put( "sKEf", z2d ) 263 287 ENDIF … … 277 301 & - e1u(ji ,jj+1) * uu(ji ,jj+1,1,Kmm) + e1u(ji,jj) * uu(ji,jj,1,Kmm) ) * r1_e1e2f(ji,jj) 278 302 END_2D 303 #if defined key_mpi3 304 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 305 #else 279 306 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 307 #endif 280 308 CALL iom_put( "relvor", z2d ) ! relative vorticity ( zeta ) 281 309 ! … … 290 318 z2d(ji,jj) = ze3 * z2d(ji,jj) 291 319 END_2D 320 #if defined key_mpi3 321 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 322 #else 292 323 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 324 #endif 293 325 CALL iom_put( "relpotvor", z2d ) ! relative potential vorticity (zeta/h) 294 326 ! … … 301 333 z2d(ji,jj) = ze3 * ff_f(ji,jj) + z2d(ji,jj) 302 334 END_2D 335 #if defined key_mpi3 336 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 337 #else 303 338 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 339 #endif 304 340 CALL iom_put( "abspotvor", z2d ) ! absolute potential vorticity ( q ) 305 341 ! … … 307 343 z2d(ji,jj) = 0.5_wp * z2d(ji,jj) * z2d(ji,jj) 308 344 END_2D 345 #if defined key_mpi3 346 CALL lbc_lnk_nc_multi( 'diawri', z2d, 'F', 1. ) 347 #else 309 348 CALL lbc_lnk( 'diawri', z2d, 'F', 1. ) 349 #endif 310 350 CALL iom_put( "Ens", z2d ) ! potential enstrophy ( 1/2*q2 ) 311 351 !
Note: See TracChangeset
for help on using the changeset viewer.