Changeset 12325 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/OCE/ZDF/zdfdrg.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/zdfdrg.F90 (modified) (1 diff)

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

@@ -276 +276 @@
       IF( ln_isfcav ) THEN              ! Ocean cavities: top friction setting
          ALLOCATE( rCd0_top(jpi,jpj), rCdU_top(jpi,jpj) )
-         CALL drg_init( 'TOP   '   , mikt       ,                                         &   ! <== in
+         CALL drg_init( 'TOP   '   , INT(mikt)       ,                                         &   ! <== in
             &           r_Cdmin_top, r_Cdmax_top, r_z0_top, r_ke0_top, rCd0_top, rCdU_top )   ! ==> out
       ENDIF