New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5200 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 – NEMO

Ignore:
Timestamp:
2015-04-07T16:22:54+02:00 (9 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/DYN/dynhpg.F90

    r5189 r5200  
    516516      INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    517517      !! 
    518       INTEGER  ::   ji, jj, jk, iku, ikv, ikt, iktp1i, iktp1j   ! dummy loop indices 
    519       REAL(wp) ::   zcoef0, zuap, zvap, znad                    ! temporary scalars 
     518      INTEGER  ::   ji, jj, jk, ikt, iktp1i, iktp1j   ! dummy loop indices 
     519      REAL(wp) ::   zcoef0, zuap, zvap, znad          ! temporary scalars 
    520520      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  zhpi, zhpj 
    521521      REAL(wp), POINTER, DIMENSION(:,:,:)   ::  ztstop 
Note: See TracChangeset for help on using the changeset viewer.