Changeset 9 for IOIPSL

Timestamp:

03/12/07 16:36:23 (18 years ago)

Author:

bellier

Message:

new version

File:

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

IOIPSL/trunk/src/fliocom.f90

@@ -1 @@
-!$Header: /home/ioipsl/CVSROOT/IOIPSL/src/fliocom.f90,v 2.32 2006/03/15 13:49:06 adm Exp $
+!$Id$
 !-
 MODULE fliocom
@@ -4992 +4992 @@
       SELECT CASE (c_ax)
       CASE('x')
-        dimnb = nw_di(nw_ai(k_lon,f_i),f_i)
+        k = nw_ai(k_lon,f_i)
       CASE('y')
-        dimnb = nw_di(nw_ai(k_lat,f_i),f_i)
+        k = nw_ai(k_lat,f_i)
       CASE('z')
-        dimnb = nw_di(nw_ai(k_lev,f_i),f_i)
+        k = nw_ai(k_lev,f_i)
       CASE('t')
-        dimnb = nw_di(nw_ai(k_tim,f_i),f_i)
+        k = nw_ai(k_tim,f_i)
       END SELECT
+      IF ( (k >= 1).AND.(k <= nb_ax_mx) ) THEN
+        dimnb = nw_di(k,f_i)
+      ELSE
+        dimnb = -1
+      ENDIF
 !-----
       i_rc = NF90_INQUIRE_DIMENSION(nw_id(f_i),dimnb,name=c_t1)