Changeset 5087 for branches

Timestamp:

2015-02-17T11:05:30+01:00 (9 years ago)

Author:

timgraham

Message:

Minor bug fix from merge

File:

• branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (1 diff)

branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -45 +45 @@
 
    !                               !!* Namelist namtra_dmp : T & S newtonian damping *
+   ! nn_zdmp and cn_resto are public as they are used by C1D/dyndmp.F90
    LOGICAL , PUBLIC ::   ln_tradmp   !: internal damping flag
-   INTEGER ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer
-   CHARACTER(LEN=200) :: cn_resto      ! name of netcdf file containing restoration coefficient field
-   LOGICAL ::   ln_miss      ! check for missing data in T/S data file (slow?)
-   REAL(wp) ::   rn_miss      ! Value of missing data
+   INTEGER , PUBLIC ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer
+   CHARACTER(LEN=200) , PUBLIC :: cn_resto      ! name of netcdf file containing restoration coefficient field
    !