- Timestamp:
- 2020-11-06T10:20:56+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90
r13683 r13732 94 94 CALL qco_rst_read( nit000, Kbb, Kmm ) ! Read or initialize ssh_(Kbb/Kmm) 95 95 ! 96 CALL dom_qco_zgr( Kbb, Kmm , Kaa )! interpolation scale factor, depth and water column96 CALL dom_qco_zgr( Kbb, Kmm ) ! interpolation scale factor, depth and water column 97 97 ! 98 98 #if defined key_agrif … … 112 112 113 113 114 SUBROUTINE dom_qco_zgr( Kbb, Kmm , Kaa)114 SUBROUTINE dom_qco_zgr( Kbb, Kmm ) 115 115 !!---------------------------------------------------------------------- 116 116 !! *** ROUTINE dom_qco_init *** … … 123 123 !! - r3(t/u/v/f)_n 124 124 !!---------------------------------------------------------------------- 125 INTEGER, INTENT(in) :: Kbb, Kmm , Kaa! time level indices125 INTEGER, INTENT(in) :: Kbb, Kmm ! time level indices 126 126 !!---------------------------------------------------------------------- 127 127 ! -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/ISF/isfcpl.F90
r13295 r13732 233 233 CALL dom_vvl_zgr(Kbb, Kmm, Kaa) 234 234 #else 235 CALL dom_qco_zgr(Kbb, Kmm , Kaa)235 CALL dom_qco_zgr(Kbb, Kmm) 236 236 #endif 237 237 ! -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/SBC/sbcice_cice.F90
r13427 r13732 238 238 !!gm especially here it is assumed zstar coordinate, but it can be ztilde.... 239 239 #if defined key_qco 240 IF( .NOT.ln_linssh ) CALL dom_qco_zgr( Kbb, Kmm , Kaa) ! interpolation scale factor, depth and water column240 IF( .NOT.ln_linssh ) CALL dom_qco_zgr( Kbb, Kmm ) ! interpolation scale factor, depth and water column 241 241 #else 242 242 IF( .NOT.ln_linssh ) THEN
Note: See TracChangeset
for help on using the changeset viewer.