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 12586 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfphy.F90 – NEMO

Ignore:
Timestamp:
2020-03-23T13:14:40+01:00 (4 years ago)
Author:
francesca
Message:

Add extra-halo support (jperio 3,4) - ticket #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfphy.F90

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