Changeset 10166 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE
- Timestamp:
- 2018-10-03T11:25:38+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests
- Files:
-
- 1 deleted
- 5 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/diawri.F90
r9814 r10166 125 125 ! Output of initial vertical scale factor 126 126 CALL iom_put("e3t_0", e3t_0(:,:,:) ) 127 CALL iom_put("e3u_0", e3 t_0(:,:,:) )128 CALL iom_put("e3v_0", e3 t_0(:,:,:) )127 CALL iom_put("e3u_0", e3u_0(:,:,:) ) 128 CALL iom_put("e3v_0", e3v_0(:,:,:) ) 129 129 ! 130 130 CALL iom_put( "e3t" , e3t_n(:,:,:) ) … … 181 181 END DO 182 182 END DO 183 CALL lbc_lnk( "diawri",z2d, 'T', 1. )183 CALL lbc_lnk( z2d, 'T', 1. ) 184 184 CALL iom_put( "taubot", z2d ) 185 185 ENDIF … … 237 237 END DO 238 238 END DO 239 CALL lbc_lnk( "diawri",z2d, 'T', 1. )239 CALL lbc_lnk( z2d, 'T', 1. ) 240 240 CALL iom_put( "sstgrad2", z2d ) ! square of module of sst gradient 241 241 z2d(:,:) = SQRT( z2d(:,:) ) … … 281 281 END DO 282 282 END DO 283 CALL lbc_lnk( "diawri",z3d, 'T', 1. )283 CALL lbc_lnk( z3d, 'T', 1. ) 284 284 CALL iom_put( "eken", z3d ) ! kinetic energy 285 285 ENDIF … … 307 307 END DO 308 308 END DO 309 CALL lbc_lnk( "diawri",z2d, 'U', -1. )309 CALL lbc_lnk( z2d, 'U', -1. ) 310 310 CALL iom_put( "u_heattr", 0.5*rcp * z2d ) ! heat transport in i-direction 311 311 ENDIF … … 320 320 END DO 321 321 END DO 322 CALL lbc_lnk( "diawri",z2d, 'U', -1. )322 CALL lbc_lnk( z2d, 'U', -1. ) 323 323 CALL iom_put( "u_salttr", 0.5 * z2d ) ! heat transport in i-direction 324 324 ENDIF … … 342 342 END DO 343 343 END DO 344 CALL lbc_lnk( "diawri",z2d, 'V', -1. )344 CALL lbc_lnk( z2d, 'V', -1. ) 345 345 CALL iom_put( "v_heattr", 0.5*rcp * z2d ) ! heat transport in j-direction 346 346 ENDIF … … 355 355 END DO 356 356 END DO 357 CALL lbc_lnk( "diawri",z2d, 'V', -1. )357 CALL lbc_lnk( z2d, 'V', -1. ) 358 358 CALL iom_put( "v_salttr", 0.5 * z2d ) ! heat transport in j-direction 359 359 ENDIF … … 368 368 END DO 369 369 END DO 370 CALL lbc_lnk( "diawri",z2d, 'T', -1. )370 CALL lbc_lnk( z2d, 'T', -1. ) 371 371 CALL iom_put( "tosmint", rau0 * z2d ) ! Vertical integral of temperature 372 372 ENDIF … … 380 380 END DO 381 381 END DO 382 CALL lbc_lnk( "diawri",z2d, 'T', -1. )382 CALL lbc_lnk( z2d, 'T', -1. ) 383 383 CALL iom_put( "somint", rau0 * z2d ) ! Vertical integral of salinity 384 384 ENDIF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_istate.F90
r10102 r10166 80 80 ENDDO 81 81 ! 82 CALL lbc_lnk( "usr_def_istate",pssh, 'T', 1. ) ! apply boundary conditions83 CALL lbc_lnk( "usr_def_istate",pts, 'T', 1. ) ! apply boundary conditions84 CALL lbc_lnk( "usr_def_istate",pu, 'U', -1. ) ! apply boundary conditions85 CALL lbc_lnk( "usr_def_istate",pv, 'V', -1. ) ! apply boundary conditions82 CALL lbc_lnk(pssh, 'T', 1. ) ! apply boundary conditions 83 CALL lbc_lnk( pts, 'T', 1. ) ! apply boundary conditions 84 CALL lbc_lnk( pu, 'U', -1. ) ! apply boundary conditions 85 CALL lbc_lnk( pv, 'V', -1. ) ! apply boundary conditions 86 86 87 87 END SUBROUTINE usr_def_istate -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_zgr.F90
r9814 r10166 194 194 z2d(:,:) = REAL( jpkm1 , wp ) ! flat bottom 195 195 ! 196 CALL lbc_lnk( "usrdef_zgr",z2d, 'T', 1. ) ! set surrounding land to zero (here jperio=0 ==>> closed)196 CALL lbc_lnk( z2d, 'T', 1. ) ! set surrounding land to zero (here jperio=0 ==>> closed) 197 197 ! 198 198 k_bot(:,:) = INT( z2d(:,:) ) ! =jpkm1 over the ocean point, =0 elsewhere -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90
r9762 r10166 442 442 !!$ CALL iom_get (inum, jpdom_data, 'field', ebot_iwm, 1 ) 443 443 !!$ CALL iom_close(inum) 444 ebot_iwm(:,:) = 0.444 ebot_iwm(:,:) = 1.e-6 445 445 ! 446 446 !!$ CALL iom_open('mixing_power_pyc',inum) ! energy flux for pynocline-intensified wave breaking [W/m2] 447 447 !!$ CALL iom_get (inum, jpdom_data, 'field', epyc_iwm, 1 ) 448 448 !!$ CALL iom_close(inum) 449 epyc_iwm(:,:) = 0.449 epyc_iwm(:,:) = 1.e-6 450 450 ! 451 451 !!$ CALL iom_open('mixing_power_cri',inum) ! energy flux for critical slope wave breaking [W/m2] 452 452 !!$ CALL iom_get (inum, jpdom_data, 'field', ecri_iwm, 1 ) 453 453 !!$ CALL iom_close(inum) 454 ecri_iwm(:,:) = 0.454 ecri_iwm(:,:) = 1.e-10 455 455 ! 456 456 !!$ CALL iom_open('decay_scale_bot',inum) ! spatially variable decay scale for high-mode wave breaking [m] 457 457 !!$ CALL iom_get (inum, jpdom_data, 'field', hbot_iwm, 1 ) 458 458 !!$ CALL iom_close(inum) 459 hbot_iwm(:,:) = 1 .459 hbot_iwm(:,:) = 100. 460 460 ! 461 461 !!$ CALL iom_open('decay_scale_cri',inum) ! spatially variable decay scale for critical slope wave breaking [m] 462 462 !!$ CALL iom_get (inum, jpdom_data, 'field', hcri_iwm, 1 ) 463 463 !!$ CALL iom_close(inum) 464 hcri_iwm(:,:) = 1 .464 hcri_iwm(:,:) = 100. 465 465 466 466 ebot_iwm(:,:) = ebot_iwm(:,:) * ssmask(:,:) -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/demo_cfgs.txt
r9789 r10166 6 6 VORTEX OCE NST 7 7 WAD OCE 8 BENCH OCE
Note: See TracChangeset
for help on using the changeset viewer.