Changeset 7235 for branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/grid.f90

Timestamp:

2016-11-16T11:40:55+01:00 (7 years ago)

Author:

jpaul

Message:

see ticket #1781

File:

• branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/grid.f90 (modified) (1 diff)

branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/grid.f90

@@ -1734 +1734 @@
 
                IF( TRIM(td_var%c_stdname) == 'longitude' .OR. &
-                 & SCAN(TRIM(td_var%c_longname), 'longitude') == 0 )THEN
+                 & SCAN( TRIM(td_var%c_longname), 'longitude') == 0 )THEN
                   WHERE( dl_value(:,:) > 180._dp .AND. &
                   &      dl_value(:,:) /= td_var%d_fill )