Ignore:
Timestamp:
2018-10-03T11:25:38+02:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 1: add BENCh test case, see #2133

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  
    125125      ! Output of initial vertical scale factor 
    126126      CALL iom_put("e3t_0", e3t_0(:,:,:) ) 
    127       CALL iom_put("e3u_0", e3t_0(:,:,:) ) 
    128       CALL iom_put("e3v_0", e3t_0(:,:,:) ) 
     127      CALL iom_put("e3u_0", e3u_0(:,:,:) ) 
     128      CALL iom_put("e3v_0", e3v_0(:,:,:) ) 
    129129      ! 
    130130      CALL iom_put( "e3t" , e3t_n(:,:,:) ) 
     
    181181            END DO 
    182182         END DO 
    183          CALL lbc_lnk( "diawri",z2d, 'T', 1. ) 
     183         CALL lbc_lnk( z2d, 'T', 1. ) 
    184184         CALL iom_put( "taubot", z2d )            
    185185      ENDIF 
     
    237237            END DO 
    238238         END DO 
    239          CALL lbc_lnk( "diawri",z2d, 'T', 1. ) 
     239         CALL lbc_lnk( z2d, 'T', 1. ) 
    240240         CALL iom_put( "sstgrad2",  z2d )          ! square of module of sst gradient 
    241241         z2d(:,:) = SQRT( z2d(:,:) ) 
     
    281281            END DO 
    282282         END DO 
    283          CALL lbc_lnk( "diawri",z3d, 'T', 1. ) 
     283         CALL lbc_lnk( z3d, 'T', 1. ) 
    284284         CALL iom_put( "eken", z3d )                 ! kinetic energy 
    285285      ENDIF 
     
    307307            END DO 
    308308         END DO 
    309          CALL lbc_lnk( "diawri",z2d, 'U', -1. ) 
     309         CALL lbc_lnk( z2d, 'U', -1. ) 
    310310         CALL iom_put( "u_heattr", 0.5*rcp * z2d )    ! heat transport in i-direction 
    311311      ENDIF 
     
    320320            END DO 
    321321         END DO 
    322          CALL lbc_lnk( "diawri",z2d, 'U', -1. ) 
     322         CALL lbc_lnk( z2d, 'U', -1. ) 
    323323         CALL iom_put( "u_salttr", 0.5 * z2d )        ! heat transport in i-direction 
    324324      ENDIF 
     
    342342            END DO 
    343343         END DO 
    344          CALL lbc_lnk( "diawri",z2d, 'V', -1. ) 
     344         CALL lbc_lnk( z2d, 'V', -1. ) 
    345345         CALL iom_put( "v_heattr", 0.5*rcp * z2d )    !  heat transport in j-direction 
    346346      ENDIF 
     
    355355            END DO 
    356356         END DO 
    357          CALL lbc_lnk( "diawri",z2d, 'V', -1. ) 
     357         CALL lbc_lnk( z2d, 'V', -1. ) 
    358358         CALL iom_put( "v_salttr", 0.5 * z2d )        !  heat transport in j-direction 
    359359      ENDIF 
     
    368368            END DO 
    369369         END DO 
    370          CALL lbc_lnk( "diawri",z2d, 'T', -1. ) 
     370         CALL lbc_lnk( z2d, 'T', -1. ) 
    371371         CALL iom_put( "tosmint", rau0 * z2d )        ! Vertical integral of temperature 
    372372      ENDIF 
     
    380380            END DO 
    381381         END DO 
    382          CALL lbc_lnk( "diawri",z2d, 'T', -1. ) 
     382         CALL lbc_lnk( z2d, 'T', -1. ) 
    383383         CALL iom_put( "somint", rau0 * z2d )         ! Vertical integral of salinity 
    384384      ENDIF 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_istate.F90

    r10102 r10166  
    8080      ENDDO 
    8181      ! 
    82       CALL lbc_lnk("usr_def_istate", pssh, 'T',  1. )            ! apply boundary conditions 
    83       CALL lbc_lnk("usr_def_istate", pts, 'T',  1. )            ! apply boundary conditions 
    84       CALL lbc_lnk("usr_def_istate",   pu, 'U', -1. )            ! apply boundary conditions 
    85       CALL lbc_lnk("usr_def_istate",   pv, 'V', -1. )            ! apply boundary conditions 
     82      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 
    8686       
    8787   END SUBROUTINE usr_def_istate 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_zgr.F90

    r9814 r10166  
    194194      z2d(:,:) = REAL( jpkm1 , wp )          ! flat bottom 
    195195      ! 
    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) 
    197197      ! 
    198198      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  
    442442!!$      CALL iom_get  (inum, jpdom_data, 'field', ebot_iwm, 1 )  
    443443!!$      CALL iom_close(inum) 
    444       ebot_iwm(:,:) = 0. 
     444      ebot_iwm(:,:) = 1.e-6 
    445445      ! 
    446446!!$      CALL iom_open('mixing_power_pyc',inum)       ! energy flux for pynocline-intensified wave breaking [W/m2] 
    447447!!$      CALL iom_get  (inum, jpdom_data, 'field', epyc_iwm, 1 ) 
    448448!!$      CALL iom_close(inum) 
    449       epyc_iwm(:,:) = 0. 
     449      epyc_iwm(:,:) = 1.e-6 
    450450      ! 
    451451!!$      CALL iom_open('mixing_power_cri',inum)       ! energy flux for critical slope wave breaking [W/m2] 
    452452!!$      CALL iom_get  (inum, jpdom_data, 'field', ecri_iwm, 1 ) 
    453453!!$      CALL iom_close(inum) 
    454       ecri_iwm(:,:) = 0. 
     454      ecri_iwm(:,:) = 1.e-10 
    455455      ! 
    456456!!$      CALL iom_open('decay_scale_bot',inum)        ! spatially variable decay scale for high-mode wave breaking [m] 
    457457!!$      CALL iom_get  (inum, jpdom_data, 'field', hbot_iwm, 1 ) 
    458458!!$      CALL iom_close(inum) 
    459       hbot_iwm(:,:) = 1. 
     459      hbot_iwm(:,:) = 100. 
    460460      ! 
    461461!!$      CALL iom_open('decay_scale_cri',inum)        ! spatially variable decay scale for critical slope wave breaking [m] 
    462462!!$      CALL iom_get  (inum, jpdom_data, 'field', hcri_iwm, 1 ) 
    463463!!$      CALL iom_close(inum) 
    464       hcri_iwm(:,:) = 1. 
     464      hcri_iwm(:,:) = 100. 
    465465 
    466466      ebot_iwm(:,:) = ebot_iwm(:,:) * ssmask(:,:) 
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/demo_cfgs.txt

    r9789 r10166  
    66VORTEX OCE NST 
    77WAD OCE 
     8BENCH OCE 
Note: See TracChangeset for help on using the changeset viewer.