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 9106 for branches/2017/dev_merge_2017/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2017-12-15T19:02:00+01:00 (6 years ago)
Author:
cetlod
Message:

Bugfix on ZDF

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfosm.F90

    r9104 r9106  
    12811281     END DO 
    12821282      ! Lateral boundary conditions on ghamu and ghamv, currently on W-grid  (sign unchanged), needed to caclulate gham[uv] on u and v grids 
    1283      CALL lbc_lnk_multi( p_avt, 'W', 1. , p_avm, 'W', 1.   & 
     1283     CALL lbc_lnk_multi( p_avt, 'W', 1. , p_avm, 'W', 1.,   & 
    12841284      &                  ghamu, 'W', 1. , ghamv, 'W', 1. ) 
    12851285       DO jk = 2, jpkm1 
     
    12991299        ! Lateral boundary conditions on final outputs for gham[ts],  on W-grid  (sign unchanged) 
    13001300        ! Lateral boundary conditions on final outputs for gham[uv],  on [UV]-grid  (sign unchanged) 
    1301         CALL lbc_lnk_multi( ghamt, 'W', 1. , ghams, 'W', 1.   & 
     1301        CALL lbc_lnk_multi( ghamt, 'W', 1. , ghams, 'W', 1.,   & 
    13021302         &                  ghamu, 'U', 1. , ghamv, 'V', 1. ) 
    13031303 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfphy.F90

    r9104 r9106  
    289289      !                                         !* Lateral boundary conditions (sign unchanged) 
    290290      IF( l_zdfsh2 ) THEN 
    291          CALL lbc_lnk_multi( avm_k, 'W', 1. , avt_k, 'W', 1.   & 
     291         CALL lbc_lnk_multi( avm_k, 'W', 1. , avt_k, 'W', 1.,   & 
    292292            &                avm  , 'W', 1. , avt  , 'W', 1. , avs , 'W', 1. ) 
    293293      ELSE 
Note: See TracChangeset for help on using the changeset viewer.