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 8754 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90 – NEMO

Ignore:
Timestamp:
2017-11-20T16:37:17+01:00 (7 years ago)
Author:
cbricaud
Message:

bugfix for coarsening branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r8096 r8754  
    984984      END SELECT 
    985985 
    986       CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0, pval=1.0 ) 
    987       CALL crs_lbc_lnk( p_e3_crs    , cd_type, 1.0, pval=1.0 ) 
     986      CALL crs_lbc_lnk( p_e3_max_crs, cd_type, 1.0 ) 
     987      CALL crs_lbc_lnk( p_e3_crs    , cd_type, 1.0 ) 
    988988 
    989989   END SUBROUTINE crs_dom_e3 
     
    10891089      END SELECT 
    10901090 
    1091       CALL crs_lbc_lnk( p_surf_crs    , cd_type, 1.0 ) 
    1092       CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0 ) 
     1091      CALL crs_lbc_lnk( p_surf_crs    , cd_type , 1. ) 
     1092      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type , 1. ) 
    10931093 
    10941094      CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
Note: See TracChangeset for help on using the changeset viewer.