Changeset 5130 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

Timestamp:

2015-03-05T20:59:13+01:00 (9 years ago)

Author:

smasson

Message:

cut lines exceeding 132 characters for easier compilation

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

@@ -119 +119 @@
              CALL iom_getatt(inum, 'open_ocean_jstart', jstartrow ) ! -999 is returned if the attribute is not found
              jstartrow = MAX(1,jstartrow)
-             CALL iom_get ( inum, jpdom_unknown, 'Bathymetry' , zdta, kstart=(/jpizoom,jpjzoom+jstartrow-1/), kcount=(/jpiglo,jpjglo/) )
+             CALL iom_get ( inum, jpdom_unknown, 'Bathymetry' , zdta, kstart=(/jpizoom,jpjzoom+jstartrow-1/)   &
+                &                                                   , kcount=(/jpiglo,jpjglo/) )
          ENDIF
       ENDIF