Changeset 5324
 Timestamp:
 20150601T10:54:30+02:00 (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90
r5323 r5324 98 98 zhke(:,:) = 0._wp 99 99 100 SELECT CASE ( kscheme ) !== Horizontal kinetic energy at Tpoint ==! 101 ! 102 CASE ( nkeg_C2 ) ! Standard scheme ! 103 DO jk = 1, jpkm1 100 DO jk = 1, jpkm1 101 102 SELECT CASE ( kscheme ) !== Horizontal kinetic energy at Tpoint ==! 103 ! 104 CASE ( nkeg_C2 ) ! Standard scheme ! 105 104 106 DO jj = 2, jpj 105 107 DO ji = fs_2, jpi ! vector opt. … … 111 113 END DO 112 114 END DO 113 END DO114 115 ! 115 CASE ( nkeg_HW ) ! Hollingsworth scheme !116 DO jk = 1, jpkm1 116 CASE ( nkeg_HW ) ! Hollingsworth scheme ! 117 117 118 DO jj = 2, jpjm1 118 119 DO ji = fs_2, jpim1 ! vector opt. … … 129 130 END DO 130 131 END DO 131 END DO 132 CALL lbc_lnk( zhke, 'T', 1. ) 132 CALL lbc_lnk( zhke, 'T', 1. ) 133 ! 134 END SELECT 133 135 ! 134 END SELECT135 !136 DO jk = 1, jpkm1 !== grad( KE ) added to the general momentum trends ==!137 136 DO jj = 2, jpjm1 138 137 DO ji = fs_2, fs_jpim1 ! vector opt. … … 141 140 END DO 142 141 END DO 142 143 143 END DO 144 144 !
Note: See TracChangeset
for help on using the changeset viewer.