Changeset 5118 for trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2015-03-03T14:36:04+01:00 (9 years ago)

Author:

acc

Message:

Merge changes from dev_r5087_NOC2_JATTR (see #1472) into trunk following successful SETTE tests

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -222 +222 @@
          &             nn_bench, nn_timing
       NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
-         &             jpizoom, jpjzoom, jperio
+         &             jpizoom, jpjzoom, jperio, ln_use_jattr
       !!----------------------------------------------------------------------
       !
@@ -261 +261 @@
       nperio  = 0
       jperio  = 0
+      ln_use_jattr = .false.
    ENDIF
 #endif
@@ -506 +507 @@
          WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom
          WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio   
+         WRITE(numout,*) '      use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr
       ENDIF
       !                             ! Parameter control