- Timestamp:
- 2020-07-03T19:15:31+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DIA/diawri.F90
r13130 r13247 185 185 ! 186 186 END_2D 187 CALL lbc_lnk( 'diawri', z2d, 'T', 1. )187 CALL lbc_lnk( 'diawri', z2d, 'T', 1.0_wp ) 188 188 CALL iom_put( "taubot", z2d ) 189 189 ENDIF … … 239 239 & * umask(ji,jj,1) * umask(ji-1,jj,1) * vmask(ji,jj,1) * umask(ji,jj-1,1) 240 240 END_2D 241 CALL lbc_lnk( 'diawri', z2d, 'T', 1. )241 CALL lbc_lnk( 'diawri', z2d, 'T', 1.0_wp ) 242 242 CALL iom_put( "sstgrad2", z2d ) ! square of module of sst gradient 243 243 z2d(:,:) = SQRT( z2d(:,:) ) … … 271 271 & + vv(ji,jj ,jk,Kmm)**2 * e1v(ji,jj ) * e3v(ji,jj ,jk,Kmm) ) 272 272 END_3D 273 CALL lbc_lnk( 'diawri', z3d, 'T', 1. )273 CALL lbc_lnk( 'diawri', z3d, 'T', 1.0_wp ) 274 274 CALL iom_put( "eken", z3d ) ! kinetic energy 275 275 ENDIF … … 293 293 z2d(ji,jj) = z2d(ji,jj) + z3d(ji,jj,jk) * ( ts(ji,jj,jk,jp_tem,Kmm) + ts(ji+1,jj,jk,jp_tem,Kmm) ) 294 294 END_3D 295 CALL lbc_lnk( 'diawri', z2d, 'U', -1. )295 CALL lbc_lnk( 'diawri', z2d, 'U', -1.0_wp ) 296 296 CALL iom_put( "u_heattr", 0.5*rcp * z2d ) ! heat transport in i-direction 297 297 ENDIF … … 302 302 z2d(ji,jj) = z2d(ji,jj) + z3d(ji,jj,jk) * ( ts(ji,jj,jk,jp_sal,Kmm) + ts(ji+1,jj,jk,jp_sal,Kmm) ) 303 303 END_3D 304 CALL lbc_lnk( 'diawri', z2d, 'U', -1. )304 CALL lbc_lnk( 'diawri', z2d, 'U', -1.0_wp ) 305 305 CALL iom_put( "u_salttr", 0.5 * z2d ) ! heat transport in i-direction 306 306 ENDIF … … 320 320 z2d(ji,jj) = z2d(ji,jj) + z3d(ji,jj,jk) * ( ts(ji,jj,jk,jp_tem,Kmm) + ts(ji,jj+1,jk,jp_tem,Kmm) ) 321 321 END_3D 322 CALL lbc_lnk( 'diawri', z2d, 'V', -1. )322 CALL lbc_lnk( 'diawri', z2d, 'V', -1.0_wp ) 323 323 CALL iom_put( "v_heattr", 0.5*rcp * z2d ) ! heat transport in j-direction 324 324 ENDIF … … 329 329 z2d(ji,jj) = z2d(ji,jj) + z3d(ji,jj,jk) * ( ts(ji,jj,jk,jp_sal,Kmm) + ts(ji,jj+1,jk,jp_sal,Kmm) ) 330 330 END_3D 331 CALL lbc_lnk( 'diawri', z2d, 'V', -1. )331 CALL lbc_lnk( 'diawri', z2d, 'V', -1.0_wp ) 332 332 CALL iom_put( "v_salttr", 0.5 * z2d ) ! heat transport in j-direction 333 333 ENDIF … … 338 338 z2d(ji,jj) = z2d(ji,jj) + e3t(ji,jj,jk,Kmm) * ts(ji,jj,jk,jp_tem,Kmm) 339 339 END_3D 340 CALL lbc_lnk( 'diawri', z2d, 'T', -1. )340 CALL lbc_lnk( 'diawri', z2d, 'T', -1.0_wp ) 341 341 CALL iom_put( "tosmint", rho0 * z2d ) ! Vertical integral of temperature 342 342 ENDIF … … 346 346 z2d(ji,jj) = z2d(ji,jj) + e3t(ji,jj,jk,Kmm) * ts(ji,jj,jk,jp_sal,Kmm) 347 347 END_3D 348 CALL lbc_lnk( 'diawri', z2d, 'T', -1. )348 CALL lbc_lnk( 'diawri', z2d, 'T', -1.0_wp ) 349 349 CALL iom_put( "somint", rho0 * z2d ) ! Vertical integral of salinity 350 350 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.