Changeset 14179 for NEMO/trunk/src/OCE/DOM/domqco.F90
- Timestamp:
- 2020-12-15T23:17:09+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domqco.F90
r14053 r14179 116 116 ! !== Set of all other vertical scale factors ==! (now and before) 117 117 ! ! Horizontal interpolation of e3t 118 #if defined key_RK3 119 CALL dom_qco_r3c( ssh(:,:,Kbb), r3t(:,:,Kbb), r3u(:,:,Kbb), r3v(:,:,Kbb), r3f(:,:) ) 120 CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm) ) 121 #else 118 122 CALL dom_qco_r3c( ssh(:,:,Kbb), r3t(:,:,Kbb), r3u(:,:,Kbb), r3v(:,:,Kbb) ) 119 123 CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm), r3f(:,:) ) 124 #endif 120 125 ! 121 126 END SUBROUTINE dom_qco_zgr
Note: See TracChangeset
for help on using the changeset viewer.