Changeset 12336
- Timestamp:
- 2020-01-24T17:25:42+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaar5.F90
r12193 r12336 299 299 ELSE 300 300 DO jk = 1, jpk 301 DO j i = 1, jpi302 DO j j = 1, jpj301 DO jj = 1, jpj 302 DO ji = 1, jpi 303 303 zpe(ji,jj) = zpe(ji,jj) + avt(ji,jj,jk) * MIN(0._wp,rn2(ji,jj,jk)) * rau0 * e3w(ji,jj,jk,Kmm) 304 304 END DO -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ISF/isftbl.F90
r12077 r12336 259 259 ! test: this routine run with pdep = 0 should return 1 260 260 ! 261 DO j i = 1, jpi262 DO j j = 1, jpj261 DO jj = 1, jpj 262 DO ji = 1, jpi 263 263 ! comput ktop 264 264 ikt = 2 -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/STO/stopar.F90
r11960 r12336 847 847 INTEGER :: ji, jj 848 848 849 DO jj = 2, jpj -1850 DO ji = 2, jpi -1849 DO jj = 2, jpjm1 850 DO ji = 2, jpim1 851 851 psto(ji,jj) = 0.5_wp * psto(ji,jj) + 0.125_wp * & 852 852 & ( psto(ji-1,jj) + psto(ji+1,jj) + & -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfiwm.F90
r12236 r12336 169 169 END DO 170 170 END DO 171 END DO 171 172 !!gm delta(gde3w) = e3t(:,:,:,Kmm) !! Please verify the grid-point position w versus t-point 172 173 !!gm it seems to me that only 1/hcri_iwm is used ==> compute it one for all 173 174 174 END DO175 175 176 176 ! !* Pycnocline-intensified mixing: distribute energy over the time-varying
Note: See TracChangeset
for help on using the changeset viewer.