Changeset 9


Ignore:
Timestamp:
03/12/07 16:36:23 (14 years ago)
Author:
bellier
Message:

new version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/fliocom.f90

    r4 r9  
    1 !$Header: /home/ioipsl/CVSROOT/IOIPSL/src/fliocom.f90,v 2.32 2006/03/15 13:49:06 adm Exp $ 
     1!$Id$ 
    22!- 
    33MODULE fliocom 
     
    49924992      SELECT CASE (c_ax) 
    49934993      CASE('x') 
    4994         dimnb = nw_di(nw_ai(k_lon,f_i),f_i) 
     4994        k = nw_ai(k_lon,f_i) 
    49954995      CASE('y') 
    4996         dimnb = nw_di(nw_ai(k_lat,f_i),f_i) 
     4996        k = nw_ai(k_lat,f_i) 
    49974997      CASE('z') 
    4998         dimnb = nw_di(nw_ai(k_lev,f_i),f_i) 
     4998        k = nw_ai(k_lev,f_i) 
    49994999      CASE('t') 
    5000         dimnb = nw_di(nw_ai(k_tim,f_i),f_i) 
     5000        k = nw_ai(k_tim,f_i) 
    50015001      END SELECT 
     5002      IF ( (k >= 1).AND.(k <= nb_ax_mx) ) THEN 
     5003        dimnb = nw_di(k,f_i) 
     5004      ELSE 
     5005        dimnb = -1 
     5006      ENDIF 
    50025007!----- 
    50035008      i_rc = NF90_INQUIRE_DIMENSION(nw_id(f_i),dimnb,name=c_t1) 
Note: See TracChangeset for help on using the changeset viewer.