New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC – NEMO

Ignore:
Timestamp:
2018-10-03T16:49:50+02:00 (6 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of lbc_lnk, see #2133

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/diawri.F90

    r10074 r10170  
    185185            END DO 
    186186         END DO 
    187          CALL lbc_lnk( z2d, 'T', 1. ) 
     187         CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 
    188188         CALL iom_put( "taubot", z2d )            
    189189      ENDIF 
    … …  
    244244            END DO 
    245245         END DO 
    246          CALL lbc_lnk( z3d, 'T', 1. ) 
     246         CALL lbc_lnk( 'diawri', z3d, 'T', 1. ) 
    247247         CALL iom_put( "salgrad2",  z3d )          ! square of module of sal gradient 
    248248         z3d(:,:,:) = SQRT( z3d(:,:,:) ) 
    … …  
    260260            END DO 
    261261         END DO 
    262          CALL lbc_lnk( z2d, 'T', 1. ) 
     262         CALL lbc_lnk( 'diawri', z2d, 'T', 1. ) 
    263263         CALL iom_put( "sstgrad2",  z2d )          ! square of module of sst gradient 
    264264         z2d(:,:) = SQRT( z2d(:,:) ) 
    … …  
    314314            END DO 
    315315         END DO 
    316          CALL lbc_lnk( z3d, 'T', 1. ) 
     316         CALL lbc_lnk( 'diawri', z3d, 'T', 1. ) 
    317317         CALL iom_put( "eken", z3d )                 ! kinetic energy 
    318318      ENDIF 
    … …  
    335335         END DO 
    336336          
    337          CALL lbc_lnk( z3d, 'T', 1. ) 
     337         CALL lbc_lnk( 'diawri', z3d, 'T', 1. ) 
    338338         CALL iom_put( "ke", z3d ) ! kinetic energy 
    339339 
    … …  
    363363            END DO 
    364364         END DO 
    365          CALL lbc_lnk( z3d, 'F', 1. ) 
     365         CALL lbc_lnk( 'diawri', z3d, 'F', 1. ) 
    366366         CALL iom_put( "relvor", z3d )                  ! relative vorticity 
    367367 
    … …  
    387387            END DO 
    388388         END DO 
    389          CALL lbc_lnk( z3d, 'F', 1. ) 
     389         CALL lbc_lnk( 'diawri', z3d, 'F', 1. ) 
    390390         CALL iom_put( "potvor", z3d )                  ! potential vorticity 
    391391 
    … …  
    413413            END DO 
    414414         END DO 
    415          CALL lbc_lnk( z2d, 'U', -1. ) 
     415         CALL lbc_lnk( 'diawri', z2d, 'U', -1. ) 
    416416         CALL iom_put( "u_heattr", 0.5*rcp * z2d )    ! heat transport in i-direction 
    417417      ENDIF 
    … …  
    426426            END DO 
    427427         END DO 
    428          CALL lbc_lnk( z2d, 'U', -1. ) 
     428         CALL lbc_lnk( 'diawri', z2d, 'U', -1. ) 
    429429         CALL iom_put( "u_salttr", 0.5 * z2d )        ! heat transport in i-direction 
    430430      ENDIF 
    … …  
    448448            END DO 
    449449         END DO 
    450          CALL lbc_lnk( z2d, 'V', -1. ) 
     450         CALL lbc_lnk( 'diawri', z2d, 'V', -1. ) 
    451451         CALL iom_put( "v_heattr", 0.5*rcp * z2d )    !  heat transport in j-direction 
    452452      ENDIF 
    … …  
    461461            END DO 
    462462         END DO 
    463          CALL lbc_lnk( z2d, 'V', -1. ) 
     463         CALL lbc_lnk( 'diawri', z2d, 'V', -1. ) 
    464464         CALL iom_put( "v_salttr", 0.5 * z2d )        !  heat transport in j-direction 
    465465      ENDIF 
    … …  
    474474            END DO 
    475475         END DO 
    476          CALL lbc_lnk( z2d, 'T', -1. ) 
     476         CALL lbc_lnk( 'diawri', z2d, 'T', -1. ) 
    477477         CALL iom_put( "tosmint", rau0 * z2d )        ! Vertical integral of temperature 
    478478      ENDIF 
    … …  
    486486            END DO 
    487487         END DO 
    488          CALL lbc_lnk( z2d, 'T', -1. ) 
     488         CALL lbc_lnk( 'diawri', z2d, 'T', -1. ) 
    489489         CALL iom_put( "somint", rau0 * z2d )         ! Vertical integral of salinity 
    490490      ENDIF 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/domvvl.F90

    r10074 r10170  
    385385         !                       ! d - thickness diffusion transport: boundary conditions 
    386386         !                             (stored for tracer advction and continuity equation) 
    387          CALL lbc_lnk_multi( un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 
     387         CALL lbc_lnk_multi( 'domvvl', un_td , 'U' , -1._wp, vn_td , 'V' , -1._wp) 
    388388 
    389389         ! 4 - Time stepping of baroclinic scale factors 
    … …  
    396396            z2dt = 2.0_wp * rdt 
    397397         ENDIF 
    398          CALL lbc_lnk( tilde_e3t_a(:,:,:), 'T', 1._wp ) 
     398         CALL lbc_lnk( 'domvvl', tilde_e3t_a(:,:,:), 'T', 1._wp ) 
    399399         tilde_e3t_a(:,:,:) = tilde_e3t_b(:,:,:) + z2dt * tmask(:,:,:) * tilde_e3t_a(:,:,:) 
    400400 
    … …  
    688688            END DO 
    689689         END DO 
    690          CALL lbc_lnk( pe3_out(:,:,:), 'U', 1._wp ) 
     690         CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'U', 1._wp ) 
    691691         pe3_out(:,:,:) = pe3_out(:,:,:) + e3u_0(:,:,:) 
    692692         ! 
    … …  
    701701            END DO 
    702702         END DO 
    703          CALL lbc_lnk( pe3_out(:,:,:), 'V', 1._wp ) 
     703         CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'V', 1._wp ) 
    704704         pe3_out(:,:,:) = pe3_out(:,:,:) + e3v_0(:,:,:) 
    705705         ! 
    … …  
    715715            END DO 
    716716         END DO 
    717          CALL lbc_lnk( pe3_out(:,:,:), 'F', 1._wp ) 
     717         CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'F', 1._wp ) 
    718718         pe3_out(:,:,:) = pe3_out(:,:,:) + e3f_0(:,:,:) 
    719719         ! 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/trazdf.F90

    r10074 r10170  
    9292         END DO 
    9393!!gm this should be moved in trdtra.F90 and done on all trends 
    94          CALL lbc_lnk_multi( ztrdt, 'T', 1. , ztrds, 'T', 1. ) 
     94         CALL lbc_lnk_multi( 'trazdf', ztrdt, 'T', 1. , ztrds, 'T', 1. ) 
    9595!!gm 
    9696         CALL trd_tra( kt, 'TRA', jp_tem, jptra_zdf, ztrdt ) 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/usrdef_istate.F90

    r10074 r10170  
    169169               END DO 
    170170            END DO 
    171             CALL lbc_lnk( pssh, 'T',  1. ) 
     171            CALL lbc_lnk( 'usrdef_istate', pssh, 'T',  1. ) 
    172172         END DO 
    173173          
    … …  
    293293         pssh(:,:) = pssh(:,:) + ( 0.1  * zrandom(:,:) - 0.05 ) 
    294294      END IF 
    295       CALL lbc_lnk( pssh, 'T',  1. ) 
    296       CALL lbc_lnk(  pts, 'T',  1. ) 
    297       CALL lbc_lnk(   pu, 'U', -1. ) 
    298       CALL lbc_lnk(   pv, 'V', -1. ) 
     295      CALL lbc_lnk( 'usrdef_istate', pssh, 'T',  1. ) 
     296      CALL lbc_lnk(  'usrdef_istate', pts, 'T',  1. ) 
     297      CALL lbc_lnk(   'usrdef_istate', pu, 'U', -1. ) 
     298      CALL lbc_lnk(   'usrdef_istate', pv, 'V', -1. ) 
    299299 
    300300   END SUBROUTINE usr_def_istate 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/usrdef_zgr.F90

    r10074 r10170  
    204204      END SELECT 
    205205      ! 
    206       CALL lbc_lnk( z2d, 'T', 1. )           ! set surrounding land to zero (here jperio=0 ==>> closed) 
     206      CALL lbc_lnk( 'usrdef_zgr', z2d, 'T', 1. )           ! set surrounding land to zero (here jperio=0 ==>> closed) 
    207207      ! 
    208208      k_bot(:,:) = INT( z2d(:,:) )           ! =jpkm1 over the ocean point, =0 elsewhere 
Note: See TracChangeset for help on using the changeset viewer.