- Timestamp:
- 2020-12-02T14:55:21+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@13 292sette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DYN/sshwzv.F90
r13915 r13998 206 206 ELSE !== Quasi-Eulerian vertical coordinate ==! ('key_qco') 207 207 ! !==========================================! 208 DO jk = jpkm1, 1, -1 ! integrate from the bottom the hor. divergence208 DO jk = jpkm1, 1, -1 ! integrate from the bottom the hor. divergence 209 209 pww(:,:,jk) = pww(:,:,jk+1) - ( e3t(:,:,jk,Kmm) * hdiv(:,:,jk) & 210 210 & + r1_Dt * ( e3t(:,:,jk,Kaa) & … … 398 398 ! 399 399 IF( MAXVAL( Cu_adv(:,:,:) ) > Cu_min ) THEN ! Quick check if any breaches anywhere 400 DO_3DS( 1, 1, 1, 1, jpkm1, 2, -1 ) 400 DO_3DS( 1, 1, 1, 1, jpkm1, 2, -1 ) ! or scan Courant criterion and partition ! w where necessary 401 401 ! 402 402 zCu = MAX( Cu_adv(ji,jj,jk) , Cu_adv(ji,jj,jk-1) )
Note: See TracChangeset
for help on using the changeset viewer.