Changeset 8754


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

bugfix for coarsening branch

Location:
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO
Files:
3 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 ) 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r7256 r8754  
    3838   USE crs, ONLY : ln_crs_top 
    3939   USE ieee_arithmetic 
     40#if defined key_crs 
     41   USE crslbclnk , ONLY : crs_lbc_lnk 
     42#endif 
    4043 
    4144   IMPLICIT NONE 
     
    109112      ! Update after tracer on domain lateral boundaries 
    110113      DO jn = 1, jptra 
     114#if defined key_crs 
     115         CALL crs_lbc_lnk( tra(:,:,:,jn), 'T', 1. )    
     116#else 
    111117         CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. )    
     118#endif 
    112119      END DO 
    113120 
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r7806 r8754  
    2323   USE trdtra 
    2424   USE ieee_arithmetic 
     25#if defined key_crs 
     26   USE crslbclnk , ONLY : crs_lbc_lnk 
     27#endif 
    2528 
    2629   IMPLICIT NONE 
     
    173176         ENDIF 
    174177         ! 
     178#if defined key_crs 
     179         CALL crs_lbc_lnk( sbc_trc(:,:,jn), 'T', 1. ) 
     180#else 
    175181         CALL lbc_lnk( sbc_trc(:,:,jn), 'T', 1. ) 
     182#endif 
    176183         !                                       Concentration dilution effect on tracers due to evaporation & precipitation  
    177184         DO jj = 2, jpj 
Note: See TracChangeset for help on using the changeset viewer.