Changeset 12325 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/ZDF/zdfphy.F90

Timestamp:

2020-01-15T13:26:22+01:00 (4 years ago)

Author:

francesca

Message:

replace halo-copy routines - ticket #2009

File:

• NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/ZDF/zdfphy.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/ZDF/zdfphy.F90

@@ -246 +246 @@
             &                                        rCdU_bot  )     ! ==>> out : bottom drag [m/s]
          IF( ln_isfcav ) THEN    !* top drag   (ocean cavities)
-            CALL zdf_drg( kt, mikt    , r_Cdmin_top, r_Cdmax_top,   &   ! <<== in 
+            CALL zdf_drg( kt, INT(mikt)    , r_Cdmin_top, r_Cdmax_top,   &   ! <<== in 
                &              r_z0_top,   r_ke0_top,    rCd0_top,   &
                &                                        rCdU_top  )     ! ==>> out : bottom drag [m/s]