New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15491 – NEMO

Changeset 15491


Ignore:
Timestamp:
2021-11-10T14:48:04+01:00 (6 months ago)
Author:
hadjt
Message:

DIA/diaharm_fast.F90

Harmonic analysis with restarts.

Working, but perhaps needs additional work

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  
    125125               zcd = (  vkarmn / LOG( zzz / pz0 )  )**2 
    126126               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  ) 
    128128            END DO 
    129129         END DO 
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step.F90

    r15313 r15491  
    207207      IF( ln_diaptr  )   CALL dia_ptr                 ! Poleward adv/ldf TRansports diagnostics 
    208208      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 
    209213                         CALL dia_prod( kstp )        ! ocean model: product diagnostics 
    210214                         CALL dia_wri ( kstp )        ! ocean model: outputs 
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/step_oce.F90

    r15313 r15491  
    8383   USE diahsb          ! heat, salt and volume budgets    (dia_hsb routine) 
    8484   USE diaharm 
     85!--- NB for restart hamonic analysis 
     86   USE diaharm_fast     ! harmonic analysis of tides (harm_ana routine)  
     87!--- END NB ----------------------------------- 
    8588   USE diaprod 
    8689   USE diacfl 
Note: See TracChangeset for help on using the changeset viewer.