Changeset 1633 for trunk/NEMO

Timestamp:

2009-09-22T17:46:58+02:00 (15 years ago)

Author:

rblod

Message:

Fix syntax error in obcini, see ticket #545

File:

• trunk/NEMO/OPA_SRC/OBC/obcini.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/OBC/obcini.F90

@@ -60 +60 @@
       REAL(wp), DIMENSION(2) ::   ztestmask
       !!
-      NAMELIST/namobc/ rn_dpein, rn_dpwin, rn_dpnin, rn_dpsin,      &
-         &             rn_dpeob, rn_dpwob, rn_dpnob, rn_dpsob,      &
-         &             rn_volemp, nn_obcdta, cn_obcdta, rn_volemp   &
+      NAMELIST/namobc/ rn_dpein, rn_dpwin, rn_dpnin, rn_dpsin,       &
+         &             rn_dpeob, rn_dpwob, rn_dpnob, rn_dpsob,       &
+         &             rn_volemp, nn_obcdta, cn_obcdta, rn_volemp,   &
          &             ln_obc_clim, ln_vol_cst, ln_obc_fla
       !!----------------------------------------------------------------------