Changeset 11265 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynspg_ts.F90
- Timestamp:
- 2019-07-12T16:02:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DYN/dynspg_ts.F90
r11262 r11265 285 285 ! != Add bottom stress contribution from baroclinic velocities =! 286 286 ! ! ----------------------------------------------------------- ! 287 CALL d rg_init( zu_frc, zv_frc, zCdU_u, zCdU_v ) ! also provide the barotropic drag coefficients287 CALL dyn_drg_init( zu_frc, zv_frc, zCdU_u, zCdU_v ) ! also provide the barotropic drag coefficients 288 288 ! 289 289 ! != Add atmospheric pressure forcing =! … … 1446 1446 1447 1447 1448 SUBROUTINE d rg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v )1449 !!---------------------------------------------------------------------- 1450 !! *** ROUTINE d rg_init ***1448 SUBROUTINE dyn_drg_init( pu_RHSi, pv_RHSi, pCdU_u, pCdU_v ) 1449 !!---------------------------------------------------------------------- 1450 !! *** ROUTINE dyn_drg_init *** 1451 1451 !! 1452 1452 !! ** Purpose : - add the baroclinic top/bottom drag contribution to … … 1565 1565 ENDIF 1566 1566 ! 1567 END SUBROUTINE d rg_init1567 END SUBROUTINE dyn_drg_init 1568 1568 1569 1569 SUBROUTINE ts_bck_interp( jn, ll_init, & ! <== in
Note: See TracChangeset
for help on using the changeset viewer.