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

Ignore:
Timestamp:
2020-04-24T17:09:39+02:00 (4 years ago)
Author:
francesca
Message:

POINTER removal and replacing of traadv_mus.F90 file with original version - ticket #2366

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/ZDF/zdfdrg.F90

    r12738 r12810  
    268268      IF( ln_isfcav ) THEN              ! Ocean cavities: top friction setting 
    269269         ALLOCATE( rCd0_top(jpi,jpj), rCdU_top(jpi,jpj) ) 
    270          CALL drg_init( 'TOP   '   , INT(mikt)       ,                                         &   ! <== in 
     270         CALL drg_init( 'TOP   '   , mikt       ,                                         &   ! <== in 
    271271            &           r_Cdmin_top, r_Cdmax_top, r_z0_top, r_ke0_top, rCd0_top, rCdU_top )   ! ==> out 
    272272      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.