Changeset 13226 for NEMO/trunk/src/OCE/DIA
- Timestamp:
- 2020-07-02T16:24:31+02:00 (4 years ago)
- Location:
- NEMO/trunk/src/OCE/DIA
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DIA/diaar5.F90
r13089 r13226 317 317 z2d(ji,jj) = z2d(ji,jj) + puflx(ji,jj,jk) 318 318 END_3D 319 CALL lbc_lnk( 'diaar5', z2d, 'U', -1. )319 CALL lbc_lnk( 'diaar5', z2d, 'U', -1.0_wp ) 320 320 IF( cptr == 'adv' ) THEN 321 321 IF( ktra == jp_tem ) CALL iom_put( 'uadv_heattr' , rho0_rcp * z2d ) ! advective heat transport in i-direction … … 331 331 z2d(ji,jj) = z2d(ji,jj) + pvflx(ji,jj,jk) 332 332 END_3D 333 CALL lbc_lnk( 'diaar5', z2d, 'V', -1. )333 CALL lbc_lnk( 'diaar5', z2d, 'V', -1.0_wp ) 334 334 IF( cptr == 'adv' ) THEN 335 335 IF( ktra == jp_tem ) CALL iom_put( 'vadv_heattr' , rho0_rcp * z2d ) ! advective heat transport in j-direction -
NEMO/trunk/src/OCE/DIA/diaptr.F90
r12489 r13226 568 568 p_fval(ji,jj) = p_fval(ji,jj-1) + pva(ji,jj) * tmask_i(ji,jj) 569 569 END_2D 570 CALL lbc_lnk( 'diaptr', p_fval, 'U', -1. )570 CALL lbc_lnk( 'diaptr', p_fval, 'U', -1.0_wp ) 571 571 END DO 572 572 ! -
NEMO/trunk/src/OCE/DIA/diawri.F90
r13089 r13226 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.