Changeset 15491 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/ZDF

Timestamp:

2021-11-10T14:48:04+01:00 (3 years ago)

Author:

hadjt

Message:

DIA/diaharm_fast.F90

Harmonic analysis with restarts.

Working, but perhaps needs additional work

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/ZDF/zdfdrg.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/ZDF/zdfdrg.F90

@@ -125 +125 @@
                zcd = (  vkarmn / LOG( zzz / pz0 )  )**2
                zcd = pCd0(ji,jj) * MIN(  MAX( pCdmin , zcd ) , pCdmax  )   ! here pCd0 = mask*boost
-               pCdU(ji,jj) = - zcd * SQRT(  0.25 * ( zut*zut + zvt*zvt ) + pke0  )
+               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  )
             END DO
          END DO