Changeset 5295 for branches/2015/dev_r5187_UKMO13_simplification

Timestamp:

2015-05-27T11:14:47+02:00 (9 years ago)

Author:

timgraham

Message:

Minor bugfixes for sh94 and tanh stretching function cases

File:

• branches/2015/dev_r5187_UKMO13_simplification/NEMOGCM/TOOLS/SCOORD_GEN/src/scoord_gen.F90 (modified) (2 diffs)

branches/2015/dev_r5187_UKMO13_simplification/NEMOGCM/TOOLS/SCOORD_GEN/src/scoord_gen.F90

@@ -374 +374 @@
          END DO    ! for all ji's
 
-         DO ji = 1, jpim1
-            DO jj = 1, jpjm1
+         DO ji = 1, jpi-1
+            DO jj = 1, jpj-1
                z_esigtu3(ji,jj) = ( hbatt(ji,jj)*z_esigt3(ji,jj)+hbatt(ji+1,jj)*z_esigt3(ji+1,jj) )   &
                   &              / ( hbatt(ji,jj)+hbatt(ji+1,jj) )
@@ -672 +672 @@
       !!                W-points at integer values - 1/2 (between 0.5 and jpk-0.5)
       !!----------------------------------------------------------------------
-      USE utils, ONLY : wp
+      USE utils, ONLY : wp,rn_theta,rn_thetb,jpk
+      IMPLICIT NONE
       REAL(wp), INTENT(in) ::   pk   ! continuous "k" coordinate
       REAL(wp)             ::   pf   ! sigma value