Changeset 5295


Ignore:
Timestamp:
2015-05-27T11:14:47+02:00 (5 years ago)
Author:
timgraham
Message:

Minor bugfixes for sh94 and tanh stretching function cases

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5187_UKMO13_simplification/NEMOGCM/TOOLS/SCOORD_GEN/src/scoord_gen.F90

    r5294 r5295  
    374374         END DO    ! for all ji's 
    375375 
    376          DO ji = 1, jpim1 
    377             DO jj = 1, jpjm1 
     376         DO ji = 1, jpi-1 
     377            DO jj = 1, jpj-1 
    378378               z_esigtu3(ji,jj) = ( hbatt(ji,jj)*z_esigt3(ji,jj)+hbatt(ji+1,jj)*z_esigt3(ji+1,jj) )   & 
    379379                  &              / ( hbatt(ji,jj)+hbatt(ji+1,jj) ) 
     
    672672      !!                W-points at integer values - 1/2 (between 0.5 and jpk-0.5) 
    673673      !!---------------------------------------------------------------------- 
    674       USE utils, ONLY : wp 
     674      USE utils, ONLY : wp,rn_theta,rn_thetb,jpk 
     675      IMPLICIT NONE 
    675676      REAL(wp), INTENT(in) ::   pk   ! continuous "k" coordinate 
    676677      REAL(wp)             ::   pf   ! sigma value 
Note: See TracChangeset for help on using the changeset viewer.