Changeset 13095


Ignore:
Timestamp:
2020-06-11T14:08:55+02:00 (8 weeks ago)
Author:
jamesharle
Message:

Update indexing in hpg_prj (see ticket #2474)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/DYN/dynhpg.F90

    r11536 r13095  
    10271027      DO jj = 1, jpj 
    10281028        DO ji = 1, jpi 
    1029           jk = mbkt(ji,jj)+1 
    1030           IF(     jk <=  0   ) THEN   ;   zrhh(ji,jj,    :   ) = 0._wp 
    1031           ELSEIF( jk ==  1   ) THEN   ;   zrhh(ji,jj,jk+1:jpk) = rhd(ji,jj,jk) 
     1029          jk = mbkt(ji,jj) 
     1030          IF(     jk <=  1   ) THEN   ;   zrhh(ji,jj,    :   ) = 0._wp 
     1031          ELSEIF( jk ==  2   ) THEN   ;   zrhh(ji,jj,jk+1:jpk) = rhd(ji,jj,jk) 
    10321032          ELSEIF( jk < jpkm1 ) THEN 
    10331033             DO jkk = jk+1, jpk 
    10341034                zrhh(ji,jj,jkk) = interp1(gde3w_n(ji,jj,jkk  ), gde3w_n(ji,jj,jkk-1),   & 
    1035                    &                      gde3w_n(ji,jj,jkk-2), rhd    (ji,jj,jkk-1), rhd(ji,jj,jkk-2)) 
     1035                   &                      gde3w_n(ji,jj,jkk-2), zrhh    (ji,jj,jkk-1), zrhh(ji,jj,jkk-2)) 
    10361036             END DO 
    10371037          ENDIF 
Note: See TracChangeset for help on using the changeset viewer.