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 15502 – NEMO

Changeset 15502


Ignore:
Timestamp:
2021-11-14T20:43:11+01:00 (6 months ago)
Author:
hadjt
Message:

DIA/diaharm_fast.F90

Nemo compile key dependence removed

Commented code added to help start tidal ellipse paramter calculation (how to copy U and V onto the T grid.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaharm_fast.F90

    r15501 r15502  
    55   !!                  
    66   !!===================================================================== 
    7  
    8 #if defined key_diaharm_fast  
    97 
    108   !!---------------------------------------------------------------------- 
     
    885883 
    886884 
     885 
     886! to output tidal parameters, u and v on t grid 
     887! 
     888!                                  !==  standard Cd  ==! 
     889!         DO jj = 2, jpjm1 
     890!            DO ji = 2, jpim1 
     891!               imk = k_mk(ji,jj)    ! ocean bottom level at t-points 
     892!               zut = un(ji,jj,imk) + un(ji-1,jj,imk)     ! 2 x velocity at t-point 
     893!               zvt = vn(ji,jj,imk) + vn(ji,jj-1,imk) 
     894!               !                                                           ! here pCd0 = mask*boost * drag 
     895!               pCdU(ji,jj) = - pCd0(ji,jj) * SQRT(  0.25 * ( zut*zut + zvt*zvt ) + pke0  ) 
     896!            END DO 
     897!         END DO 
     898 
     899 
     900 
     901 
    887902! 
    888903   END SUBROUTINE harm_ana_out 
     
    10331048 
    10341049   !!====================================================================== 
    1035 #else 
    1036 !!--------------------------------------------------------------------------------- 
    1037 !!   Dummy module                                   NO harmonic Analysis 
    1038 !!--------------------------------------------------------------------------------- 
    1039         LOGICAL, PUBLIC, PARAMETER :: lk_diaharm_fast  = .FALSE.   ! to be run or not 
    1040  
    1041         CONTAINS 
    1042            SUBROUTINE harm_rst_write(kt)     ! Dummy routine 
    1043            END SUBROUTINE harm_rst_write 
    1044            SUBROUTINE harm_rst_read    ! Dummy routine 
    1045            END SUBROUTINE harm_rst_read 
    1046            SUBROUTINE harm_ana_out      ! Dummy routine 
    1047            END SUBROUTINE harm_ana_out 
    1048            SUBROUTINE harm_ana_init 
    1049            END SUBROUTINE harm_ana_init 
    1050            SUBROUTINE harm_ana( kt ) 
    1051 !--- NB : end call not properly written 
    1052            END SUBROUTINE harm_ana 
    1053 !           END SUBROUTINE harm_ana_init 
    1054 !--- END NB 
    1055            SUBROUTINE gelim (a,b,x,n) 
    1056 !--- NB : end call not properly written 
    1057            END SUBROUTINE gelim 
    1058 !           END SUBROUTINE gelim (a,b,x,n) 
    1059 !--- END NB            
    1060 #endif 
    10611050 
    10621051END MODULE diaharm_fast  
Note: See TracChangeset for help on using the changeset viewer.