Ignore:
Timestamp:
2020-01-15T13:26:22+01:00 (17 months ago)
Author:
francesca
Message:

replace halo-copy routines - ticket #2009

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/ZDF/zdfdrg.F90

    r11692 r12325  
    276276      IF( ln_isfcav ) THEN              ! Ocean cavities: top friction setting 
    277277         ALLOCATE( rCd0_top(jpi,jpj), rCdU_top(jpi,jpj) ) 
    278          CALL drg_init( 'TOP   '   , mikt       ,                                         &   ! <== in 
     278         CALL drg_init( 'TOP   '   , INT(mikt)       ,                                         &   ! <== in 
    279279            &           r_Cdmin_top, r_Cdmax_top, r_z0_top, r_ke0_top, rCd0_top, rCdU_top )   ! ==> out 
    280280      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.