Changeset 4247 for branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/TRA

Timestamp:

2013-11-19T13:09:39+01:00 (10 years ago)

Author:

cetlod

Message:

dev_locean_cmcc_ingv_merc_ukmo : minor bugs corrections

File:

• branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (1 diff)

branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -49 +49 @@
 
    !                               !!* Namelist namtra_dmp : T & S newtonian damping *
-   LOGICAL, PUBLIC ::   ln_tradmp   !: internal damping flag
-   INTEGER         ::   nn_hdmp     ! = 0/-1/'latitude' for damping over T and S
-   INTEGER         ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer
-   REAL(wp)        ::   rn_surf     ! surface time scale for internal damping        [days]
-   REAL(wp)        ::   rn_bot      ! bottom time scale for internal damping         [days]
-   REAL(wp)        ::   rn_dep      ! depth of transition between rn_surf and rn_bot [meters]
-   INTEGER         ::   nn_file     ! = 1 create a damping.coeff NetCDF file 
+   LOGICAL , PUBLIC ::   ln_tradmp   !: internal damping flag
+   INTEGER , PUBLIC ::   nn_hdmp     ! = 0/-1/'latitude' for damping over T and S
+   INTEGER , PUBLIC ::   nn_zdmp     ! = 0/1/2 flag for damping in the mixed layer
+   REAL(wp), PUBLIC ::   rn_surf     ! surface time scale for internal damping        [days]
+   REAL(wp), PUBLIC ::   rn_bot      ! bottom time scale for internal damping         [days]
+   REAL(wp), PUBLIC ::   rn_dep      ! depth of transition between rn_surf and rn_bot [meters]
+   INTEGER , PUBLIC ::   nn_file     ! = 1 create a damping.coeff NetCDF file 
 
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   strdmp   !: damping salinity trend (psu/s)