Changes between Version 8 and Version 9 of 2019WP/KERNEL-02_Storkey_Coward_IMMERSE_first_steps

Timestamp:

2019-02-13T13:13:27+01:00 (6 years ago)

Author:

acc

Comment:

--

2019WP/KERNEL-02_Storkey_Coward_IMMERSE_first_steps

@@ -92 +92 @@
 #!/bin/bash
 mkdir TEST_FILES
-cp FLO/flo_oce.F90 FLO/floats.F90 SBC/sbcfwb.F90 DYN/dynadv_ubs.F90 DYN/dynkeg.F90 DYN/dynvor.F90 DYN/dynadv_cen2.F90 TEST_FILES
-cp FLO/flo_oce.F90 FLO/floats.F90 SBC/sbcfwb.F90 DYN/dynadv_ubs.F90 DYN/dynkeg.F90 DYN/dynvor.F90 DYN/dynadv_cen2.F90 TEST_FILES_ORG
+cp FLO/flo_oce.F90 FLO/floats.F90 SBC/sbcfwb.F90 DYN/dynadv_ubs.F90 DYN/dynkeg.F90 DYN/dynvor.F90 DYN/dynadv_cen2.F90 TRA/trabbl.F90 TEST_FILES
+cp FLO/flo_oce.F90 FLO/floats.F90 SBC/sbcfwb.F90 DYN/dynadv_ubs.F90 DYN/dynkeg.F90 DYN/dynvor.F90 DYN/dynadv_cen2.F90 TRA/trabbl.F90 TEST_FILES_ORG
 }}}
 
@@ -531 +531 @@
 }}}
 
+{{{#!diff
+Index: TEST_FILES/trabbl.F90
+==============================
+--- TEST_FILES_ORG/trabbl.F90   2019-02-13 12:01:47.000000000 +0000
++++ TEST_FILES/trabbl.F90       2019-02-13 12:01:55.000000000 +0000
+@@ -347,8 +347,8 @@
+             zts (ji,jj,jp_sal) = tsb(ji,jj,ik,jp_sal)
+             !
+             zdep(ji,jj) = gdept_n(ji,jj,ik)              ! bottom T-level reference depth
+-            zub (ji,jj) = un(ji,jj,mbku(ji,jj))          ! bottom velocity
+-            zvb (ji,jj) = vn(ji,jj,mbkv(ji,jj))
++            zub (ji,jj) = uu(ji,jj,mbku(ji,jj),Nii)          ! bottom velocity
++            zvb (ji,jj) = vv(ji,jj,mbkv(ji,jj),Nii)
+          END DO
+       END DO
+       !
+}}
+