Changeset 5087


Ignore:
Timestamp:
2015-02-17T11:05:30+01:00 (6 years ago)
Author:
timgraham
Message:

Minor bug fix from merge

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r5086 r5087  
    4545 
    4646   !                               !!* Namelist namtra_dmp : T & S newtonian damping * 
     47   ! nn_zdmp and cn_resto are public as they are used by C1D/dyndmp.F90 
    4748   LOGICAL , PUBLIC ::   ln_tradmp   !: internal damping flag 
    48    INTEGER ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer 
    49    CHARACTER(LEN=200) :: cn_resto      ! name of netcdf file containing restoration coefficient field 
    50    LOGICAL ::   ln_miss      ! check for missing data in T/S data file (slow?) 
    51    REAL(wp) ::   rn_miss      ! Value of missing data 
     49   INTEGER , PUBLIC ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer 
     50   CHARACTER(LEN=200) , PUBLIC :: cn_resto      ! name of netcdf file containing restoration coefficient field 
    5251   ! 
    5352 
Note: See TracChangeset for help on using the changeset viewer.