Changeset 6883


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.

Location:
branches/UKMO/dev_r6237_moci_GC3/NEMOGCM
Files:
2 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 
  • branches/UKMO/dev_r6237_moci_GC3/NEMOGCM/TOOLS/COMPILE/Fcheck_archfile.sh

    r5781 r6883  
    180180 
    181181#- do we need oasis libraries? 
    182 if [ "$2" != "nocpp" ]  
    183 then 
    184     use_oasis=$( sed -e "s/#.*$//" ${COMPIL_DIR}/$2 | grep -c key_oasis3 ) 
    185 else 
    186     use_oasis=0 
    187 fi 
    188 for liboa in psmile.MPI1 mct mpeu scrip mpp_io 
    189 do 
    190     have_liboa=$( sed -e "s/#.*$//" ${COMPIL_DIR}/$1 | grep -c "\-l${liboa}" ) 
    191     if [[ ( $use_oasis -eq 0 ) && ( $have_liboa -ge 1 ) ]] 
    192     then  
    193    sed -e "s/-l${liboa}//g" ${COMPIL_DIR}/$1 > ${COMPIL_DIR}/tmp$$ 
    194    mv -f ${COMPIL_DIR}/tmp$$ ${COMPIL_DIR}/$1 
    195     fi 
    196 done 
     182# if [ "$2" != "nocpp" ]  
     183# then 
     184#     use_oasis=$( sed -e "s/#.*$//" ${COMPIL_DIR}/$2 | grep -c key_oasis3 ) 
     185# else 
     186#     use_oasis=0 
     187# fi 
     188# for liboa in psmile.MPI1 mct mpeu scrip mpp_io 
     189# do 
     190#     have_liboa=$( sed -e "s/#.*$//" ${COMPIL_DIR}/$1 | grep -c "\-l${liboa}" ) 
     191#     if [[ ( $use_oasis -eq 0 ) && ( $have_liboa -ge 1 ) ]] 
     192#     then  
     193# sed -e "s/-l${liboa}//g" ${COMPIL_DIR}/$1 > ${COMPIL_DIR}/tmp$$ 
     194# mv -f ${COMPIL_DIR}/tmp$$ ${COMPIL_DIR}/$1 
     195#     fi 
     196# done 
    197197 
Note: See TracChangeset for help on using the changeset viewer.