Ignore:
Timestamp:
2019-01-07T16:37:52+01:00 (2 years ago)
Author:
mathiot
Message:

rm un-used variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/BDY/bdyvol.F90

    r10455 r10461  
    6464      !!            (set nn_volctl to 1 in tne namelist for this option) 
    6565      !!---------------------------------------------------------------------- 
    66       INTEGER, INTENT(in) ::   kt, kc   ! ocean time-step index, cycle time step 
     66      INTEGER, INTENT(in) ::   kt, kc   ! ocean time-step index, cycle time-step 
    6767      ! 
    6868      INTEGER  ::   ji, jj, jk, jb, jgrd 
    6969      INTEGER  ::   ib_bdy, ii, ij 
    70       REAL(wp) ::   zubtpecor, ztranst, zeh 
     70      REAL(wp) ::   zubtpecor, ztranst 
    7171      REAL(wp), SAVE :: z_cflxemp    
    7272      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: pua2d, pva2d 
Note: See TracChangeset for help on using the changeset viewer.