Changeset 3092 for branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/ASM

Timestamp:

2011-11-14T15:46:00+01:00 (13 years ago)

Author:

cetlod

Message:

dev_LOCEAN_CMCC_2011:follow coding rules for ndivdmp namelist parameter

File:

• branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (4 diffs)

branches/2011/dev_LOCEAN_CMCC_2011/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -56 +56 @@
    LOGICAL, PUBLIC :: ln_sshinc = .FALSE. !: No sea surface height assimilation increment
    LOGICAL, PUBLIC :: ln_salfix = .FALSE. !: Apply minimum salinity check
-   INTEGER, PUBLIC ::   ndivdmp = 0       !: Apply divergence damping filter ndivdmp times
+   INTEGER, PUBLIC :: nn_divdmp = 0       !: Apply divergence damping filter nn_divdmp times
 
    REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE ::   t_bkg   , s_bkg      !: Background temperature and salinity
@@ -129 +129 @@
          &                 nitbkg, nitdin, nitiaustr, nitiaufin, niaufn,   &
          &                 nittrjfrq, ln_salfix, salfixmin,                &
-         &                 ndivdmp
+         &                 nn_divdmp
       !!----------------------------------------------------------------------
 
@@ -437 +437 @@
 
 
-      IF ( ln_dyninc .AND. ndivdmp.gt.0 ) THEN
+      IF ( ln_dyninc .AND. nn_divdmp > 0 ) THEN
 
        IF( wrk_in_use( 2, 1) ) THEN
@@ -444 +444 @@
 
 
-       DO  jt = 1, ndivdmp
+       DO  jt = 1, nn_divdmp
 
            DO jk = 1, jpkm1