Ignore:
Timestamp:
2015-04-07T16:22:54+02:00 (6 years ago)
Author:
mathiot
Message:

ISF cleaning branch: umask_i is not an interior mask, bug in definition of scale factor for bottom cell if ice shelf, remove definition of unused variables (dynhpg, ldfslp, domzgr, trasbc)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r5189 r5200  
    103103      !! 
    104104      INTEGER  ::   ji , jj , jk    ! dummy loop indices 
    105       INTEGER  ::   ii0, ii1, iku   ! temporary integer 
    106       INTEGER  ::   ij0, ij1, ikv   ! temporary integer 
     105      INTEGER  ::   ii0, ii1        ! temporary integer 
     106      INTEGER  ::   ij0, ij1        ! temporary integer 
    107107      REAL(wp) ::   zeps, zm1_g, zm1_2g, z1_16, zcofw ! local scalars 
    108108      REAL(wp) ::   zci, zfi, zau, zbu, zai, zbi   !   -      - 
     
    799799            zcj = MAX(   vmask(ji,jj-1,ik  ) + vmask(ji,jj,ik  )           & 
    800800               &       + vmask(ji,jj-1,ikm1) + vmask(ji,jj,ikm1) , zeps  ) * e2t(ji,jj) 
    801             zai =    (   p_gru(ji-1,jj,ik  ) + p_gru(ji,jj,ik)           & 
     801            zai =    (   p_gru(ji-1,jj,ik  ) + p_gru(ji,jj,ik)             & 
    802802               &       + p_gru(ji-1,jj,ikm1) + p_gru(ji,jj,ikm1  )  ) / zci  * tmask(ji,jj,ik) 
    803803            zaj =    (   p_grv(ji,jj-1,ik  ) + p_grv(ji,jj,ik  )           & 
Note: See TracChangeset for help on using the changeset viewer.