Changeset 15502 for NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE
- Timestamp:
- 2021-11-14T20:43:11+01:00 (3 years ago)
- 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 5 5 !! 6 6 !!===================================================================== 7 8 #if defined key_diaharm_fast9 7 10 8 !!---------------------------------------------------------------------- … … 885 883 886 884 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 887 902 ! 888 903 END SUBROUTINE harm_ana_out … … 1033 1048 1034 1049 !!====================================================================== 1035 #else1036 !!---------------------------------------------------------------------------------1037 !! Dummy module NO harmonic Analysis1038 !!---------------------------------------------------------------------------------1039 LOGICAL, PUBLIC, PARAMETER :: lk_diaharm_fast = .FALSE. ! to be run or not1040 1041 CONTAINS1042 SUBROUTINE harm_rst_write(kt) ! Dummy routine1043 END SUBROUTINE harm_rst_write1044 SUBROUTINE harm_rst_read ! Dummy routine1045 END SUBROUTINE harm_rst_read1046 SUBROUTINE harm_ana_out ! Dummy routine1047 END SUBROUTINE harm_ana_out1048 SUBROUTINE harm_ana_init1049 END SUBROUTINE harm_ana_init1050 SUBROUTINE harm_ana( kt )1051 !--- NB : end call not properly written1052 END SUBROUTINE harm_ana1053 ! END SUBROUTINE harm_ana_init1054 !--- END NB1055 SUBROUTINE gelim (a,b,x,n)1056 !--- NB : end call not properly written1057 END SUBROUTINE gelim1058 ! END SUBROUTINE gelim (a,b,x,n)1059 !--- END NB1060 #endif1061 1050 1062 1051 END MODULE diaharm_fast
Note: See TracChangeset
for help on using the changeset viewer.