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 10314 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbutl.F90 – NEMO

Ignore:
Timestamp:
2018-11-15T17:27:18+01:00 (5 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2: add generic glob_min/max/sum and locmin/max, complete timing and report (including bdy and icb), see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/ICB/icbutl.F90

    r10297 r10314  
    7373      va_e(:,:) = 0._wp   ;   va_e(1:jpi,1:jpj) = vtau (:,:) * vmask(:,:,1) ! maybe mask useless because mask applied in sbcblk 
    7474      ! 
    75       CALL lbc_lnk_icb( uo_e, 'U', -1._wp, 1, 1 ) 
    76       CALL lbc_lnk_icb( vo_e, 'V', -1._wp, 1, 1 ) 
    77       CALL lbc_lnk_icb( ff_e, 'F', +1._wp, 1, 1 ) 
    78       CALL lbc_lnk_icb( ua_e, 'U', -1._wp, 1, 1 ) 
    79       CALL lbc_lnk_icb( va_e, 'V', -1._wp, 1, 1 ) 
    80       CALL lbc_lnk_icb( fr_e, 'T', +1._wp, 1, 1 ) 
    81       CALL lbc_lnk_icb( tt_e, 'T', +1._wp, 1, 1 ) 
     75      CALL lbc_lnk_icb( 'icbutl', uo_e, 'U', -1._wp, 1, 1 ) 
     76      CALL lbc_lnk_icb( 'icbutl', vo_e, 'V', -1._wp, 1, 1 ) 
     77      CALL lbc_lnk_icb( 'icbutl', ff_e, 'F', +1._wp, 1, 1 ) 
     78      CALL lbc_lnk_icb( 'icbutl', ua_e, 'U', -1._wp, 1, 1 ) 
     79      CALL lbc_lnk_icb( 'icbutl', va_e, 'V', -1._wp, 1, 1 ) 
     80      CALL lbc_lnk_icb( 'icbutl', fr_e, 'T', +1._wp, 1, 1 ) 
     81      CALL lbc_lnk_icb( 'icbutl', tt_e, 'T', +1._wp, 1, 1 ) 
    8282#if defined key_si3 
    8383      hicth(:,:) = 0._wp ;  hicth(1:jpi,1:jpj) = hm_i (:,:)   
    … …  
    8585      vi_e(:,:) = 0._wp ;   vi_e(1:jpi, 1:jpj) = v_ice(:,:) 
    8686      ! 
    87       CALL lbc_lnk_icb( hicth, 'T', +1._wp, 1, 1 ) 
    88       CALL lbc_lnk_icb( ui_e , 'U', -1._wp, 1, 1 ) 
    89       CALL lbc_lnk_icb( vi_e , 'V', -1._wp, 1, 1 ) 
     87      CALL lbc_lnk_icb( 'icbutl', hicth, 'T', +1._wp, 1, 1 ) 
     88      CALL lbc_lnk_icb( 'icbutl', ui_e , 'U', -1._wp, 1, 1 ) 
     89      CALL lbc_lnk_icb( 'icbutl', vi_e , 'V', -1._wp, 1, 1 ) 
    9090#endif 
    9191 
    … …  
    102102      ssh_e(0,jpj+1)     = ssh_e(1,jpj) 
    103103      ssh_e(jpi+1,jpj+1) = ssh_e(jpi,jpj) 
    104       CALL lbc_lnk_icb( ssh_e, 'T', +1._wp, 1, 1 ) 
     104      CALL lbc_lnk_icb( 'icbutl', ssh_e, 'T', +1._wp, 1, 1 ) 
    105105      ! 
    106106   END SUBROUTINE icb_utl_copy 
Note: See TracChangeset for help on using the changeset viewer.