Changeset 127

Timestamp:

08/09/07 10:17:53 (17 years ago)

Author:

bellier

Message:

JB: suppress the iconfusing rule based on the "units" attribute

in research of an axis variable.

File:

• IOIPSL/trunk/src/fliocom.f90 (modified) (3 diffs)

IOIPSL/trunk/src/fliocom.f90

@@ -4950 +4950 @@
     ENDIF
 !---
-!-- Rule 3 : we look for a correct "units" attribute
-!---
-    IF (i_v < 0) THEN
-      SELECT CASE (c_ax)
-      CASE('x')
-        n_r = 2
-        c_r(1)='degree_e'; c_r(2)='degrees_e';
-      CASE('y')
-        n_r = 2
-        c_r(1)='degree_n'; c_r(2)='degrees_n';
-      CASE('z')
-        n_r = 3
-        c_r(1)='m'; c_r(2)='km'; c_r(3)='hpa';
-      CASE('t')
-        n_r = 6
-        c_r(1)='week';   c_r(2)='day';    c_r(3)='hour';
-        c_r(4)='minute'; c_r(5)='second'; c_r(6)='timesteps';
-      END SELECT
-!-----
-      L_R3: DO kv=1,nw_nv(f_i)
-        i_rc = NF90_GET_ATT(nw_id(f_i),kv,'units',c_t1)
-        IF (i_rc == NF90_NOERR) THEN
-          CALL strlowercase (c_t1)
-          i_rc = NF90_INQUIRE_VARIABLE(nw_id(f_i),kv,ndims=n_d)
-          IF (n_d <= l_d) THEN
-            DO k=1,n_r
-              IF (INDEX(c_t1,TRIM(c_r(k))) == 1) THEN
-                i_v = kv; nbd = n_d;
-                EXIT L_R3
-              ENDIF
-            ENDDO
-          ENDIF
-        ENDIF
-      ENDDO L_R3
-    ENDIF
-!---
-!-- Rule 4 : we look for a variable with one dimension
+!-- Rule 3 : we look for a variable with one dimension
 !--          and which has the same name as its dimension
 !---
@@ -5009 +4973 @@
       IF (i_rc == NF90_NOERR) THEN
         CALL strlowercase (c_t1)
-        L_R4: DO kv=1,nw_nv(f_i)
+        L_R3: DO kv=1,nw_nv(f_i)
           i_rc = NF90_INQUIRE_VARIABLE &
  &                 (nw_id(f_i),kv,name=c_t2,ndims=n_d)
@@ -5016 +4980 @@
             IF (TRIM(c_t1) == TRIM(c_t2)) THEN
               i_v = kv; nbd = n_d;
-              EXIT L_R4
+              EXIT L_R3
             ENDIF
           ENDIF
-        ENDDO L_R4
+        ENDDO L_R3
       ENDIF
     ENDIF