Changeset 5324
- Timestamp:
- 2015-06-01T10: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 T-point ==! 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 T-point ==! 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.