Changeset 15491
- Timestamp:
- 2021-11-10T14:48:04+01:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
- Files:
-
- 1 added
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/ZDF/zdfdrg.F90
r14075 r15491 125 125 zcd = ( vkarmn / LOG( zzz / pz0 ) )**2 126 126 zcd = pCd0(ji,jj) * MIN( MAX( pCdmin , zcd ) , pCdmax ) ! here pCd0 = mask*boost 127 pCdU(ji,jj) = - zcd * SQRT( 0.25 * ( zut*zut + zvt*zvt ) + pke0 ) 127 pCdU(ji,jj) = - zcd * SQRT( 0.25 * ( zut*zut + zvt*zvt ) + pke0 ) !! = -zcd*zecu !zecu = SQRT( un(ji,jj,ikbu) * un(ji,jj,ikbu) + zvu*zvu + rn_bfeb2 ) 128 128 END DO 129 129 END DO -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90
r15313 r15491 207 207 IF( ln_diaptr ) CALL dia_ptr ! Poleward adv/ldf TRansports diagnostics 208 208 IF( ln_diaharm ) CALL dia_harm( kstp ) ! Tidal harmonic analysis 209 ! NB - new harmonic analysis 210 IF( lk_diaharm_fast ) & 211 & CALL dia_harm_fast( kstp ) ! Tidal harmonic analysis - restart and faster version 212 ! END NB 209 213 CALL dia_prod( kstp ) ! ocean model: product diagnostics 210 214 CALL dia_wri ( kstp ) ! ocean model: outputs -
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step_oce.F90
r15313 r15491 83 83 USE diahsb ! heat, salt and volume budgets (dia_hsb routine) 84 84 USE diaharm 85 !--- NB for restart hamonic analysis 86 USE diaharm_fast ! harmonic analysis of tides (harm_ana routine) 87 !--- END NB ----------------------------------- 85 88 USE diaprod 86 89 USE diacfl
Note: See TracChangeset
for help on using the changeset viewer.