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/zdfphy.F90

    r11692 r12325  
    246246            &                                        rCdU_bot  )     ! ==>> out : bottom drag [m/s] 
    247247         IF( ln_isfcav ) THEN    !* top drag   (ocean cavities) 
    248             CALL zdf_drg( kt, mikt    , r_Cdmin_top, r_Cdmax_top,   &   ! <<== in  
     248            CALL zdf_drg( kt, INT(mikt)    , r_Cdmin_top, r_Cdmax_top,   &   ! <<== in  
    249249               &              r_z0_top,   r_ke0_top,    rCd0_top,   & 
    250250               &                                        rCdU_top  )     ! ==>> out : bottom drag [m/s] 
Note: See TracChangeset for help on using the changeset viewer.