Ignore:
Timestamp:
2016-08-24T10:51:33+02:00 (5 years ago)
Author:
stephenhaddad
Message:

Commented out script code to remove oasis link arguments and corrected iom.F90 to make it compatible with latest revisions of XIOS-1.0.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r6237_moci_GC3/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r6237 r6883  
    106106      REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: z_bnds 
    107107      !!---------------------------------------------------------------------- 
    108 #if ! defined key_xios2 
    109       ALLOCATE( z_bnds(jpk,2) ) 
    110 #else 
     108 
    111109      ALLOCATE( z_bnds(2,jpk) ) 
    112 #endif 
    113110 
    114111      clname = cdname 
     
    192189 
    193190      ! Add vertical grid bounds 
    194 #if ! defined key_xios2 
    195       z_bnds(:      ,1) = gdepw_1d(:) 
    196       z_bnds(1:jpkm1,2) = gdepw_1d(2:jpk) 
    197       z_bnds(jpk:   ,2) = gdepw_1d(jpk) + e3t_1d(jpk) 
    198 #else 
    199191      z_bnds(1      ,:) = gdepw_1d(:) 
    200192      z_bnds(2,1:jpkm1) = gdepw_1d(2:jpk) 
    201193      z_bnds(2,jpk:   ) = gdepw_1d(jpk) + e3t_1d(jpk) 
    202 #endif 
    203194 
    204195      CALL iom_set_axis_attr( "deptht", bounds=z_bnds ) 
     
    206197      CALL iom_set_axis_attr( "depthv", bounds=z_bnds ) 
    207198 
    208 #if ! defined key_xios2 
    209       z_bnds(:    ,2)  = gdept_1d(:) 
    210       z_bnds(2:jpk,1)  = gdept_1d(1:jpkm1) 
    211       z_bnds(1    ,1)  = gdept_1d(1) - e3w_1d(1) 
    212 #else 
    213199      z_bnds(2,:    )  = gdept_1d(:) 
    214200      z_bnds(1,2:jpk)  = gdept_1d(1:jpkm1) 
    215201      z_bnds(1,1    )  = gdept_1d(1) - e3w_1d(1) 
    216 #endif 
     202       
    217203      CALL iom_set_axis_attr( "depthw", bounds=z_bnds ) 
    218204 
Note: See TracChangeset for help on using the changeset viewer.