Skip to content
Snippets Groups Projects
Commit 70f3faf6 authored by Andrew Coward's avatar Andrew Coward
Browse files

Resolve "Bug in isfstp.F90 when compiling with key_RK3"

parent c11fe4ad
No related branches found
No related tags found
6 merge requests!655Resolve "Remove local working arrays and subroutine arguments that are no...,!453Resolve "minor bug in sbc_blk",!339Draft: Resolve "New Implementation: FormDrag in SI3 for NEMOv4.2.0",!327Resolve "DOMAINcfg does not compile with DOMAINcfg + AGRIF not compiling anymore with branch 4.2",!324Draft: Resolve "DOMAINcfg does not compile with DOMAINcfg + AGRIF not compiling anymore with branch 4.2",!225Resolve "Bug in isfstp.F90 when compiling with key_RK3"
Hide whitespace changes
Inline Side-by-side
Showing
with 4 additions and 4 deletions
src/OCE/ISF/isfstp.F90
+ 4
− 4
View file @ 70f3faf6
......@@ -151,11 +151,11 @@ CONTAINS
& risfcpl_ssh, 'T', 1.0_wp, risfcpl_cons_ssh, 'T', 1.0_wp ) ! needed in dynspg_ts, stp2d
CALL lbc_lnk( 'isf_stp', risfcpl_vol, 'T', 1.0_wp ) ! needed in dynspg_ts, stp2d, sshwzv, dynatf
ELSE
CALL lbc_lnk( 'isf_stp', fwfisf_par , 'T', 1.0_wp, fwfisf_cav , 'T', 1.0_wp, &
CALL lbc_lnk( 'isf_stp', fwfisf_par , 'T', 1.0_wp, fwfisf_cav , 'T', 1.0_wp &
#if ! defined key_RK3
& fwfisf_par_b, 'T', 1.0_wp, fwfisf_cav_b, 'T', 1.0_wp &
& )
#endif
& , fwfisf_par_b, 'T', 1.0_wp, fwfisf_cav_b, 'T', 1.0_wp &
#endif
& )
ENDIF
!
!==================
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment